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CAD /CAM! DONT SPEND 25k, 50k 
or $500,000 BEFORE YOU SPEND $79 00 



OBJECTIVES 

This book will provide managers, 
engineers, manufacturing personnel 
and any interested persons an 
understanding of the fundamentals of 
Computer Aided Design [CAD] and 
Computer Aided manufacturing [CAM] 
applications and technology. 

PROGRAM 
DESCRIPTION 

The program will expose you to the 
various CAD/CAM terminologies used. 
Hardware and software comparisons 
will be explored with heavy emphasis on 
their advantages and disadvantages. 
Cost justification and implementation 
are presented using case studies. 

WHO SHOULD 
PARTICIPATE 

The course is designed for but not 
limited to: 

— Those managers, engineers and 
research professionals associated with 
the manufacturing industry. 

— Personnel from Product, Tool 
Design, Plant Layout and Plant 
Engineering who are interested in 
CAD/CAM. 

ADVANTAGES- 
END RESULT 

This program will enable participants to: 

1 . Learn basic CAD/CAM Vocabulary. 

2 . Better understand the various hard- 
ware and software components us- 
ed in a typical CAD work station. 

3. Select the existing CAD/CAM 
system most appropriate for cur- 
rent and projected needs. 

4. Make an effective cost justification 
as to Why they SHOULD or 
SHOULD NOT implement a 
CAD/CAM system. 



5 . Apply and use computer graphics as 
a productivity tool. 

PROGRAM 
CONTENT 

1 . Introduction 

a. History of CAD/CAM 

b. Importance of CAD/CAM 

2 . Graphics work station peripherals 

a. Input 

b. Output 

c. Advantages and disadvantages 
of input and output devices. 

3 . Computer Graphics Systems 
[Hardware] 

a. Micros 

b. Minis 

c. Main Frames 

d. Turnkey Graphics systems 

4. Software 

a. Operating systems 

b. Graphics Packages 

c. Graphics Modules 

5. Computer Aided Design 

a. Geometric Definitions 
[Points, Lines, Circles, ETC.] 

b. Control functions 

c. Graphics Manipulations 

d. Drafting Functions 

e. Filing functions 

f . Applications 




6. Implementation 

a. Determining needs 

b. Purchasing and Installing 

c. Getting Started 

7. Cost Justification and Survey 

a. Cost comparisons of two and four 
work station systems. 

b. Presentation of recent survey of 
CAD system users 



ZANIM SYSTEMS MAKES THIS SPECIAL 
OFFER: IF YOU BUY CAD/CAM: A 
PRODUCTIVITY ENHANCEMENT 
TOOL BEFORE APRIL 1 5TH, WE WILL 
INCLUDE fflEEOFCHAflGETHESETWO 
PAPERS PUBLISHED NATIONALLY BY 
ZANIM SYSTEMS CAD/CAM EXPERT. 

1 . "Creation of a Large Data Base for 

a Small Graphics System" 

2. "Shortest Path Algorithm Using 

Computer Graphics" 

Of course you could spend as much as 
$495, $595 or $695 for a similar 3 day 
seminar even though this book is not a 
computer program. 

We tell you April 15th for a special 
reason... this product may be tax 
deductible depending on your field or 
needs. This 1 70 page course will satisfy 
any of your CAD/CAM needs. We 
guarantee it. 



Please send $79 to: 

ZANIM SYSTEMS 
CAD/CAM GROUP 
P.O. BOX 4364 
FLINT, Ml 48504 
(313] 233-5731 

QUANTITY DISCOUNTS AVAILABLE FOR COLLEGES, 
UNIVERSITIES AND/OR SEMINAR USE. 
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Editorial 



A Simple Assembly Listing ... Listing Standardization 



Having recently improved our 
techniques for producing BASIC 
listings, MICRO focused its attention 
this month on improving the Assembly 
Listing process. Producing an assembly 
listing may appear to be a fairly trivial 
task for a magazine. The author sends 
in a copy of his assembler's printout 
and you print it. This may not provide 
the reader with the best listings due to 
variations in quality, size, type of 
information output, and variations in 
listings by different assemblers. 
MICRO has taken a number of steps to 
improve the assembly listings which 
involved custom programming and a 
lot of work, but we believe the end 
result is worth it. 

Transferring to FOCUS 

The first step is to get the original 
listing, provided by the author in some 
machine readable media, onto our 
6809-based FOCUS system. 
Techniques have been developed to 
transfer text between the FOCUS and 
the Apple, Atari, Coco and 
Commodore computers. 



The FOCUS word processor is used to 
'standardize' the listings. Its 
search/replace function is used to 
make changes quickly and accurately. 
The 'standard' that has been selected is 
the LISA 2.5 running on the Apple II. 
Rather than discuss the minor 
eccentricities of the LISA, I suggest you 
look at some of the listings in this issue 
to see the standards. A couple are worth 
mentioning. The LISA does not require 
(or accept] the A register designation in 
the ROL, ROR, LSR,or ASL 
instructions. It requires a special 
pseudo-op, EPZ to equate page zero 
addresses. These, and other minor 
changes, are made. Then the LISA-fied 
text file is transmitted to the Apple II. 

Running LISA 

LISA is instructed to accept input from 
the serial port by a CTRL-D, IN#2, 
RETURN. A transmit program on the 
FOCUS sends a line of text to the Apple 
at 1200 baud, and then waits 
approximately 1.5 seconds between 
lines to permit LISA to do its 
housekeeping. 



LISA is instructed to assemble the 
file with the output directed to the 
FOCUS via serial port by the command 
CTRL-D, PR#2, RETURN. 

MICRO-izing the Listing 

LISA output contains more than we 
need for the magazine listing. A 
FOCUS program converts LISA output 
to a 'MICRO' format.The example 
below shows the difference in output. 

Is It Worth It? 

It takes a lot of work to get the listings 
right. Now that the special programs 
have been written it is easier, but still 
requires time and effort. Is it worth it? I 
think so. An important feature of 
MICRO is its support of assembly 
language programming. It is important 
that the listings are not only accurate, 
but that they are in a form that is easy 
for all readers to understand. We 
welcome, as always, your comments 
and suggestions. 

Editor-in-Chief 



0800 
0800 
C000 
C0O0 
C000 
00FD 
00FE 
C88F 
CFB1 
C000 
C000 
C003 
C04L 
C044 
C047 
C04A 
C04D 
C050 
C053 
C05A 
C4F7 



20 99 
A9 45 



CF 

4F 
49 
52 
43 
4E 
54 
4E 
OD 



9 

10 
U 
12 
13 
15 
21 
31 
32 
33 
52 



53 
362 



REQUIRES DQS+ UTILITIES « fClUli 

ORG $C000 
OBJ *0B00 



NUML 

NUHH 

D4 

SCRRCL 

FRMPTR 



EPZ *FD 

EPZ *FE 
EQU IC88F 
EQU *CFB1 

JSR SCRSAV 
LDA H45 



; D0SPLUS ROUTINES 



;NAKE SURE 
; DEFAULT IS 



rtSC PR0WRITER--C0NNECTI0N' 



BYT *92.*0D,*0D 

END 



REQUIRES DQS+ UTILITIES § ICXXX 



CO00 

00FD 
00FE 
C88F 
CFB1 



NUML 

NUHH 

D4 

SCRRCL 



C000 20 99 CF FRMPTR 

C003 A9 45 

C041 50 52 4F 

C056 92 OD OD 

C4F7 



ORG ICOOO 

EQU *FD 
EQU $FE 
EQU *C88F 
EQU ICFB1 

JSR SCRSAV 

LDA #145 

ASC PR0HRITER--CDNMECTI0N' 

BYT *92,$0D,$0D 
END 



jDOSPLUS ROUTINES 



{MAKE SURE 
; DEFAULT IS 
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Fb^feBiV^64 
and Mfe 
owners only: ■;■ 

This jsjust 1 of 
2G^|*ages of the 
newest and biggest 
Sfoyjes catalog, hot i 
off the press. 

WekftowyouB 
want this page y in 
its full 7 xflO - i 
splendor, and 
another 19 pages 
of peripherals/ 
software and books 
that will make your 
CBM-64orVIC 
computer even 
nicer to live with. 
So, if we missed 
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sending you your 
very own copy 
within the last few 
weeks, call us at 
(800)227-9998 
(unless you live 
in California, in 
which case call 
(415) 965-1735. 



From Slsyles ■* - J ! 
Electric: -^©te^ihe* 
oldest ah8 latt^si^ 
professional v^vc 
specialists iri^rjus 
business^ fi: - 



(h Skyles Electric Works 

W 231-E S. Whisman Road " ' 
^b Mountain View, CaDfomia 94041 
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This famous book now contains the most comprehensive description of firmware 
and hardware ever published for the whole Apple II family. A new section with 
guide, atlas and gazeteer now provides Apple lie specific information. 



• Gives names and locations of various Monitor, 
DOS, Integer BASIC and Applesoft routines and 
tells what they're used for 

• Lists Peeks, Pokes and Calls in over 2000 
memory locations 



• Allows easy movement between BASIC and 
Machine Language 

• Explains how to use the information for easier, 
better, faster software writing 



This expanded edition is available at the new low price of only $19.95 

For the 35,000 people who already own previous editions, 
the lie Appendix is available separately for just $5.00. 



Please send me: 

What's Where In the Apple @ $19.95 ea. 



(Plus $2.00 per copy shipping/handling) 



Apple lie Appendix @ $5.00 ea. 
(includes shipping charges) 



Mass residents add 5% sales tax $ 
Total Enclosed $ 

For faster service 
Phone 617/256-3649 



Name 



Address 



City 
Signature . 



Acct # . 



State 



Zip 



D Check 



D VISA 



Q MasterCard 



Expires. 



MICRO, P.O. Box 6502, Chelmsford, MA 01824 



L— -.———_-_- _.——.——— ———. 
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Reviews in Brief 



Product Name: ANA-LIST 

Equip. Req'd: Apple H+ 48K, Disk Drive 

Price: $150 

Manufacturer: Synoptic Software, Inc. 

57 Reservior Lane 

Chestnut Hill, MA 02167 

Description: A new list management program. It takes 
lists or tables of data and allows the user to rearrange the 
entries to his liking. The program will take advantage of 
the existence of a 16K card by expanding the maximum 
number of items in a list that can be handled. 

Pluses: Without question, this program's greatest plus is 
its ability to use input data structured in DIF format. This, 
of course, makes Visicalc data entirely manageable. Few 
other pure data base management packages I've seen can 
do that. Congratulations to Synoptic for spotting an 
unfilled niche in the market. Another nice feature worth 
mentioning is the program's speed. Things happen fast. 

Minuses: It is somewhat surprising that a package being 
released now by a company that has clearly done its 
marketing homework does not have features specifically 
designed to take advantage of Apple He capabilities. In 
fact, the He isn't enen mentioned in the manual so, if you 
have a He, you would be wise to check with the company 
about possible idiosyncrasies. Additionally, I thought the 
package was overpriced, though not so much as other 
similar items. 

Documentation: Overall, I was pleased with the manual. 
The manufacturer resisted the temptation to fill the 
tutorial with banalities and has kept each chapter 
functional. I do have one complaint. For $150 the user 
surely deserves better paper for the manual, and he 
certainly deserves index tabs of plastic. The paper ones 
supplied will tear off within a few days of constant use. 
But it really is quite good. 

Skill level: A novice who follows the manual should have 
no trouble using the product. 

Reviewer: Chris Williams 

Product Name: Printmate 99 Printer 

Equip. Req'd: Serial, Parallel or IEEE Interface 

Price: * 

Manufacturer: Micro Peripherals, Inc. 

4426 Century Drive 

Salt Lake City, UT 84107 

Description: A high quality dot-matrix printer with bi- 
directional printing, true descenders and one-pass 
underlining capability, the 99 prints 80characters per line. 
While printing normally with a 5 x 9 dot matrix, a serif 
font is included for letter quality type in an 11 x 9 matrix. 



Dot addressable graphics are supported and an Ap-pak is 
available for Apple owners with full software support for 
screen dumps including different sizes and alignment. 

Pluses: A very nice, quiet, high quality printer. The 
graphics software is easy to use. 

Minuses: The plastic cover to deaden the printing sound 
is inconvenient to feed the paper through. 

Documentation: An 80+ page technical manual and a 
50 + page Ap-pak reference manual are included. They are 
terse, well written manuals. 

Skill level: No prior knowledge necessary. 

Reviewer: Phil Daley 

Product Name: Aztec C 

Equip. Req'd: Apple n, II + , or He with 2 disks 

Price: $199 |diskettes with software and 

manual in notebook 
Manufacturer: Manx Software Systems 

P.O. Box 55 

Shrewsbury, NT 07701 

Description: Aztec C is a complete development system 
for writing C language programs on the Apple n. There are 
3 diskettes full of goodies: two C compilers, a 6502 
assembler, a pseudo-code assembler for assembling the 
pseudo-code generated by one of the two compilers, a 
linker, several runtime libraries, a full-screen editor, a 
command interpreter (called SHELL, after the UNIX 
command interpreter), utilities for constructing object 
libraries and source archives, and various other programs. 
The implementation of the C language seems to support 
the full language as specified in the book by Kernighan and 
Ritchie. The system uses and produces files which are in 
DOS 3.3 format on the disk. However, you must BRUN 
SHELL in order to interact most conveniently with the 
system. 

Pluses: This is a complete development system. The only 
software that I can think of that rivals it for the price 
would be Apple Pascal(or the UCSD P-SystemJ. The 
system provides a bare bones UNIX-like environment: the 
SHELL provides the 5 or 6 most popular UNIX commands. 
You get C source code for a large part of the software 
provided with the system, so modifications are possible. 

Minuses: You have to think hard to find any. There are 
some bugs in the native code generated by the C65 
compiler. However, Manx is fixing them and provides 
updated software. Disk access performance is not 
optimized so there is painfully slow development time. To 
prepare a few line program takes almost 5 minutes 
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(compare to UCSD's less than a minute). 

Documentation: A notebook with 8 1/2 x 11 pages has 5 
ample sections and two appendices. A bit terse for 
beginners, but adequate for seasoned programmers. There 
is a tutorial sections and one on technical information 
which provides details of system and compiler operation 
for more advanced users. 

Skill level: Experience in using operating systems and 
high-level language coding and program preparation (e.g., 
good knowledge of Applee Pascal would be typical of level 
needed). Knowledge of C language is a must; buy the 
package and buy and read Kernighan and Ritchie. 

Reviewer: Richard C. Vile, Jr. 

Product Name: DISKEDT 

Equip. Req'd: 16K or 32K Color Computer with 1 

disk 
Price: $24.95 

Manufacturer: Spectral Associates 

141 Harvard Avenue 

Tacoma, WA 98466 

Description: DISKEDT is a disk editor which is more than 
just a repair program. Two versions of the program are 
furnished on the same disk, with the 32K version having 
more capabilities and protection against mistakes than the 
16K version. DISKEDT allows direct access, viewing and 
editing of any part of the disk, by track, sector or filename, 
which is somewhat unusual for this type of program. Disk 
data is displayed in either Hexadecimal or ASCII, and 
single-key commands allow moving forward or back 
through a disk or file. This moving around can be random 
access (specify track and sector), step-by-step or "skip to" 
movement. Besides the disk data, there is a constantly 
updated display of drive, track and sector, plus three 
special characters which aid in editing and generating disk 
data. A truly impressive set of editing capabilities are 
available; in fact, there are editing capabilities for which I 
can'timagine the purpose! 

Pluses: This program works well, has very powerful 
capabilities and is inexpensive for all it does. Also, the 
display update is quite rapid so that a minimum of time is 
wasted. 

Minuses: Although the program has considerable 
capability for simple disk file "repair", this topic is 
completely ignored. The display is highly readable, but is 
presented in a 10-column width. As a result, directory 
displays are very difficult to interpret, since the next file 
name occurs 32 characters "down the line". 

Documentation: Well written and suitable for the disk 
format expert. Directions are given with the assumption 
that the user is intimately familiar with all facets of the 
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Program your own 3D graphics quickly and easily with this SubLOSIC 
A2-3D2 interface 

• Easy to team "1" commands imbed into your BASIC program 

• NO machine language, NO hex math, NO PEEKS, NO POKEs 

• Games, demos, animation, CAD — unlimited applications 

• Detailed manual— sample documented programs 

• Requires: SubLOQIC A2-3D2; ROM Applesoft S RAM Card (or Apple ](e);DOS 3 3 

Only $75; $180 including complete A2-3D2 graphics package 

A database to keep tabs on all your important contacts - friends, relatives, 
business associates 

• Simple to use 

• Complete screen editing 

• Search capabilities 



Only $20 



• Approx. 200 1 1 6-character records 
available in each file 

• Hardcopy in variable formats 

• Includes Name, Address, Phone 
& Comment fields 

• Requires: Pascal 



Catalog all your PASCAL disks for easy reference 

• Automatically reads and sorts all files • Flexible search capabilities- 

• Rapid sort by any field including wildcards 

• Screen list or hardcopy • Requires: Pascal 



Only $25 



SCREEN UNIT 



Terminal I/O unit a must for your PASCAL library 

• Device Independent • Source and object code included 

• Field ohented with optional defaults • ln Put checking prevents user error 

• Built-in editor (insert, replace, • No licensing lee for commercial use 
delete, clear, etc.) • Requires: Pascal 



Only $45 



/$ ARTEMIS SYSTEMS, INC. 

41 Parkview Drive, Millburn, N.J. 07041 

or CALL (201) 564-9333 

All Software Unprotected! VISA/MC accepted 

3rd Class P.P. NJ RES. ADD 6% 
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APPLICATION 
SOFTWARE 



ACCOUNTS 
PAYABLE 

$299 

ACCOUNTS 
RECEIVABLE 

$299 



GENERAL 

LEDGER 

with 

CASH 

JOURNAL 

$399 



PAYROLL 

$499 

SMALL 

BUSINESS 

INVENTORY 

$299 



COMPLETE DOCUMENTATION $19.95 

OS9 & BASIC 09 ARE TRADEMARK OF 
MICROWARE. INC. & MOTOROLA CORP. 



SPECIALTY 
ELECTRONICS 



(405) 233-5564 
21 10 W. WILLOW - ENID, OK 73701 
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Radio Shack format and disk files in general. Although 
some specific examples are given, a larger number and 
more basic examples would have greatly enhanced the 
product. 

Skill level: Very advanced programmers will derive much 
use from this product, but a dedicated computer hacker 
with plenty of time for study can derive experience and 
benefits from it. 

Reviewer: Ralph Tenny 

Product Name: STARDOS 64 

Equip. Req'd: 64K TRS-80C Color Computer with 1 

disk drive 
Price: $49.95 (Disk only) 

Manufacturer: Star Kits 

P.O. Box 209 

Mt. Kisco, NY 10549 

Description: STARDOS 64 is a true Disk Operating 
System which will run on the Color Computer if it has 
64K of read-write memory. It uses the same disk format as 
the Radio Shack DOS. The advantage of STARDOS is that 
it provides the following features: provision for multiple 
320 byte File Control Blocks, routines which open, read, 
write and close named files, rename or delete files, read or 
write single sectors, search or modify the directory and 
other functions. STARDOS 64 will support single or 
double density disks, 35, 40 and 80 track disk drives, 
single or double sided. Finally, it has utilities which allow 
it to read FLEX disks and convert them to STARDOS /RS 
format. This means that data files and source files can be 
transferred from FLEX to STARDOS and then to RS Disk 
Basic. The standard entry points for its internal routines 
are the same as for the same functions in FLEX, which 
opens up the possibility of running some FLEX programs 
under STARDOS 64. 

The following memory-resident commands are 
available: GET (load a binary file), XEQ (similar to BASIC 
EXEC), BAS (return to BASIC), PNS (Printer Non- 
standard; adjusts for special printer protocols), VON and 
VOF (control disk verify), and V32, V40, V51, V64 (control 
special hi-res display character fonts). In addition, disk 
resident commands allow the user to BACKUP disks, 
BUILD simple text files, print a CATalog or DIRectory of 
disk files to screen or printer, COMPARE two disks (two 
drives are required), COPY files, DELETE files, 
DISKCHEK (test) disks for errors, LIST test files, 
RENAME files, SAVEM binary files and DSKINI disks. 
PEEK and POKE work the same as in BASIC, while 
ACONVERT converts FLEX ASCII files to STARDOS, 
BCONVERT changes binary files and FCAT reads the 
directory of a FLEX disk. SETMAX sets the number of 
tracks used on a disk, provided the drive can handle greater 
than 35 tracks. 

Pluses: STARDOS 64 is a low cost, highly versatile DOS 
which is easy to use and runs on the standard 64K Color 
Computer. Directions are given for adding user disk 
commands for system expansion. 



Minuses: The only minus I have noted is that STARDOS 
does not have a large stable of programs to support it. 
However, some FLEX programs will run unmodified under 
STARDOS and others can be converted using instructions 
furnished. Finally, more programs are being added as time 
goes on. 

Documentation: An 80 page manual is furnished which 
explains how to use and expand STARDOS, and how to 
convert FLEX programs. It also gives considerable detail on 
proper and efficient use of a DOS. This manual is well 
organized, thorough and well written in a highly readable 
style. The manual covers both regular STARDOS (runs on 
unmodified 16K and 32K computers, and furnished on the 
same disk) and STARDOS 64. 

Skill level: A DOS is essentially useless for BASIC-only 
operation, and almost indispensable for the assembly 
language programmer who does more than dabble in 
programming. All experience levels can benefit, but the 
advanced programmer will make greater use of STARDOS 
initially. 

Reviewer: Ralph Tenny 

Product Name: MATHMENU 1.0 

Equip. Req'd: TRS-80 Color Computer with 16K 

memory (tape version] 

TRS-80 Color Computer with disk and 

32K memory (disk version) 
Price: $44.95 tape, $49.95 disk 

Manufacturer: INTER + ACTION 

1 13 Ward Street 

New Haven, CT 06519 

Description: MATHMENU is a collection of 15 different 
engineering and math programs. The programs included 
will perform the following functions: Plot (both two 
dimensional and three dimensional); Matrix Operations 
(performs 8 standard matrix operations on a matrix as large 
as 8 x 8); Vector Operations (eight separate operations may 
be performed on vectors consisting of up to 20 elements 
each; Numerical Differentiation and Integration; Least 
Squares (performs least squares curve fitting); Number 
Base Conversions; Reverse Polish Calculation (acts as a 
calculator with stacks and memory visible on the screen); 
Binomial Expansion,- Prime Number Checking; Large Add 
and Multiply (substitutes digits for scientific notation on 
large numbers); Rectangular and Polar Conversion; 
Quadratic Root Computation. 

Pluses: Menu driven for ease of use (disk version). RPL 
calculator is useful and well done. Some documentation is 
presented on-line for each function. Algorithms used 
appear to run relatively fast in benchmark tests. 

Minuses: Many assumptions of user knowledge level are 
made in the documentation. The tape version is difficult 
to use because programs must be separately loaded. The 
experienced user should have the option of skipping online 
documentation. 
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Documentation: A 24 page manual provides a general 
summary of functions and at least one page of detail on 
each program. It lacks examples and assumes a high level 
of math expertise, but is generally adequate in its 
explanations of how to use the programs. 

Skill Level: These programs require a high level of math 
applications skills. No programming skills are required to 
run them. 

Reviewer: Norman Garrett 



Product Name: Homebase 

Equip. Req'd: TRS-80 Color Computer; 32K Disk 

BASIC ( 1 drive required) 
Price: $79.95 disk 

Manufacturer: Homebase Computer Systems 

P.O. Box 3448 

Durham, NC 27702 

Description: Homebase is a complete database manager 
divided into three separate parts which will work alone or 
in unison and which may be purchased separately or as a 
single unit. The division has separated the package into 
the Data Management function, the Custom Reporting 
Function and the Text/Word Processing Function. A 
tutorial program is included which allows the new user to 
learn the main features of Homebase while experimenting 
with the pre-established database. 

Database functions of formatting, adding, changing 
and deleting records are performed, and utilities are also 
included for selection, ascending or decending sorts, 
merges, filecopies and file synchronization. Data entry 
screens can be customized. Full computational functions 
are available, as well as a report writer that includes form 
letter management and full interface with the text 
processor and data manager, and a mailing label printing 
routine. 

Pluses: Complete, easy-to-use tutorials are included on a 
separate disk and include documentation. The database is 
menu driven, making access rapid and efficient. The 
system is set up to function with Epson, Radio Shack, 
Okidata and NEC printers with good documentation on 
other models. The database manager itself is versatile and 
contains a number of utilities which enhance the ability to 
manipulate data. Another plus is the ability to backup files 
to and reload from cassette tape. Data entry is 
accomplished via user-designed, data entry screens. 
Calculations use predefined or user-defined formulas. The 
report writer allows form letters using database fields and 
in conjunction with the text processing facility, with label 
printing routine built in. 

Minuses: On some of the tutorial screens, words are 
wrapped rather than divided. The use of color and reverse 
video on tutorial and mainscreens is excessive and can be 
difficult to read. Record design is limiting with character 
fields being fixed length 5 byte fields. A logical record 
cannot exceed 255 characters although you are allowed up 
to 49 fields per record. 




Telecommunications 



with a difference! 

Unexcelled communications power and 
compatibility, especially for professionals and 
serious computer users. Look us over; SuperTerm 
isn't just "another" terminal program. Like our 
famous Terminal-40, It's the one others will be 
Judged by. 

• EMULATION— Most popular terminal protocols: 
cursor addressing, clear, home, etc. 

• EDITING— Full-screen editing of Receive Buffer 

• UP/DOWNLOAD FORMATS -CBM, Xon-Xoff, 
ACK-NAK, CompuServe, etc. 

• FLEXIBILITY— Select baud, duplex, parity, stopbits, 
etc Even work off-line, then upload to system! 

• DISPLAY MODES-40 column; 80/132 with 
side-scrolling 

• FUNCTION KEYS -8 standard, 52 user-defined 

• BUFFERS— Receive, Transmit, Program, and Screen 

• PRINTING— Continuous printing with Smart ASCII 
interface and parallel printer; buffered printing 
otherwise 

• DISK SUPPORT— Directory, Copy, Rename, Scratch 

Options are selected by menus and EXEC file. Software 
on disk with special cartridge module. Compatible with 
CBM and HES Automodems; select ORIG/ANS mode, 
manual or autodial. 

Write for the full story on SuperTerm; or. If you 
already want that difference, order today! 

Requires: Commodore 64 or VIC-20. disk drive or Datasette. and 
compatible modem. VIC version requires 16K memory expansion. Please 
specify VIC or 64 when ordering. 



Smart ASCIi Pius . . . $59 



95 



The only Interface which supports streaming —sending 
characters simultaneously to the screen and printer — with 
SuperTerm. 

Also great for use with your own programs or most 
application programs, i.e., word processors. Print modes: 
CBM Graphics (w/many dot-addr printers), TRANSLATE, 
DaisyTRANSLATE, CBM/True ASCII, and PIPELINE. 
Complete with printer cable and manual. On disk or cassette. 

VIC 20 and Commodore 64 are trademarks of Commodore Electronics, Ud. 
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Documentation: A loose leaf notebook contains 147 pages 
for all features of Homebase, including the tutorial. The 
documentation could be more compact if printed on both 
sides of the sheet, but it is good quality and well 
organized. 

Skill level: While programming skills are certainly not 
required to use the package, a basic knowledge of 
computer files is essential in order to properly design file 
formats. A novice user could, however, learn to use the 
package fairly quickly due to good documentation which 
presupposes no expertise. 

Reviewer: Norman Garrett 

Product Name: Parallel Printer Switch 

Equip. Req'd: Two Centronics-type Printers 
Price: $39.95 plus $2 shipping 

Manufacturer: Ken Branscome Associates 

368 N. Walnut Grove Road 

Midlothian, TX 76065 

Description: This piece of hardware consists of a 
Centronics-type female connector which will plug onto 
the end of any Centronics parallel interface cable. The 
"parallel printer switch" allows the user to connect an 
existing Centronics type printer cable to the printer 
switch. By using two flat cable extensions, two printers 
with Centronics type interface can be connected to the 
printer switch. A switch on the PC card will allow the 
computer output to be directed to either printer. Thus, if 
both dot-matrix and letter-quality printers are available, 
draft copies can be run in dot matrix and final copies with 
letter quality. 

Pluses: This accessory eliminates cable swapping; the 
design allows easy home-brew flat cables or the option of 
purchasing standard Radio Shack Model I or Model III 
cables to interconnect any two printers with standard 
Centronics interfaces. Two versions are available,- one 
switches the BUSY line and the switches the ACK line, so 
specify the one you need (check the printer driver protocol 
of your computer). Ready-made 5' cables are also available 
at $39.95 each; two cables and the Printer Switch are 
available for $100 pp. 

Minuses: None noted 

Documentation: None furnished or needed 

Skill level: None 

Reviewer: Ralph Tenny 



Product Name: MMG Form Letter Writer 

Equip, req'd: Atari 400/800 with 40K disc drive 

printer 
Price: $29.95 

Manufacturer: MMG Micro Software 

P.O. Box 131 

Marlboro, NJ 07746 



Description: Form Letter Writer produces letters which 
can be merged with MMG Data Manager, Mail List, MMG 
Accounts Receivable, Accounts Payable, MMG Payroll 
and MMG Inventory programs. This means that owners of 
these other products now may send form letters to their 
client base without typing in the names, etc.. 

Pluses: The program allows printer codes to be entered so 
it can be configured to work with any printer. The codes 
can be placed anywhere in the text and will not be printed 
with the text, but will be sent to the printer. This allows 
print type to be changed or any special print codes to be 
sent from within the body of the letter. Form letters can be 
personalized in the same manner as is done by professional 
mailers. 

Minuses: The text is listed continuously on the screen 
with an inverse " " symbol marking the end of 
paragraphs. According to information furnished in the in- 
struction manual, this allows more text to be stored than 
with the normal format. This special format does take some 
getting used to. Proportional printer is not supported. 

Documentation: The seven page manual explaining use of 
the program does not cover the interfacing with the pro- 
grams that it works with as well as it could. 



Skill level required: A user with some experience. 
Reviewer: Richard E. DeVore 

Product Name: Decimal Practice-Plato Educational 
Software 

Equip . req' d: Atari 400/800/ 1 200XL with 48K disc 

drive 
Price: ? 

Manufacturer: Control Data Publication Co., Inc. 

P.O. Box 261127 

San Diego, CA 92126 

Description: Decimal Practice is one of the sixteen educa- 
tional programs in the Plato Educational Software series. 
As the title implies, the program is designed to teach 
decimals to elementary math students. 

Decimal Practice uses a number line with colored 
balloons "pinned" at different locations along the line. 
The object is to estimate where the balloons are positioned 
on the number line. The student enters an estimate of the 
location of the balloons from the keyboard and a dart is 
"thrown" at the balloons. If the aim is good, the balloon 
bursts and the location is printed. If the dart misses, it 
sticks in the number line, and the location is printed. This 
helps learn the relationship between parts and the whole. 

The program is divided into two lessons with 8 prob- 
lems in the first lesson and ten in the second. The prob- 
lems in the first lesson have whole numbers at each end of 
the number line and the student can select whether all of 
the problems should have positive numbers or a mix of 
positive and negative numbers. The problems in the sec- 
ond lessons are more difficult and have decimal numbers. 
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Pluses: Decimals Practice uses proven teaching methods 
to instruct students while providing positive feedback by 
making the student think he is playing a game. The pro- 
gram features a "help" function accessible by typing an 
"h" instead of a number. When the "h" is pushed the 
computer will shoot a dart at the number line which will 
give the student another reference point to use in 
estimating the location of the balloons. 

Minuses: The program was developed using BASIC A + 
and loads the language as well as the program so it takes 
some time to load. 

Documentation: There is a forty page booklet furnished 
with the program. There are sections covering Classroom 
Strategies, Sample Activities, Student Practice Activities 
and a Student Record sheet. It is well done and easy 
to follow. 

Skill level required: Elementary School Students. 

Reviewer: Richard E. DeVore 



Product Name: KoalaPad 



Product Name: DataFax 



Equip, req'd: 



Price: 
Manufacturer: 



Atari Computer with min. 16K, 32K for 

disk storage disk drive for disk version 

(tested) 

$99.95 

Koala Technologies 

253 Martens Ave. 

Mt. View, CA 94040 



Description: The KoalaPad is a touch tablet designed to be 
used from joyport 1 of an Atari 400 or 800 computer. It 
may be operated using your finger or the provided stylus, 
any other object is not recommended. The unit is small, 
measuring 6" x 8" x 1" with an active tablet surface area 
of 4 Vi " x 4 l A " . The KoalaPad is supplied with a program 
disk called the "Micro Illustrator". This program along 
with others soon to be available allow easy use of the 
touch pad. 

Pluses: The touch pad is extremely easy to use with the 
supplied software. The brief (14 page] owners manual 
-states how to hook the unit to the computer while the 16 
page software manual tells how to load the program and 
use it. In less than 3 minutes a child who had never seen 
the tablet before had it connected and was drawing on it. 

Minuses: Could not find any. It worked exactly as 
presented. 

Documentation: The two manuals supplied with the 
touch pad and the program disk, while brief, showed clear- 
ly how to connect and use the unit. 

Skill level required: Beginning computer user. 

Reviewer: Richard DeVore 



Equip, req'd: 

Price: 

Manufacturer: 



Apple II or Apple II + 

7 

Link Systems 
1655 26th St. 
Santa Monica, CA 90404 



Description: DataFax is a data base management system 
that runs on the Apple Pascal Operating System. It uses a 
highly flexible filing process based on keywords within a 
data record, or folder. The user can select any word or 
phrase, of variable lengths, to be keys for the folder; they 
are in turn used to retrieve desired folders for editing 
or printing. 

Pluses: DataFax is designed to handle unstructured data, 
so nearly anything one can type in can be filed and re- 
trieved with ease. Folders are scanned for on single keys or 
combinations of keys, boolean operators, and wildcard 
symbols that are easy to work with because they are writ- 
ten in English, not special computer codes. The control 
keys that function in the Editor may be customized for 
any system. 

Documentation: Over 200 pages of documentation are pro- 
vided with the DataFax package. The manual includes a 
tutorial section for beginners, a reference section for the 
basic commands and functions, and Advanced Techniques 
section for using DataFax in conjunction with the USCD 
Pascal System, and appendices covering hardware re- 
quirements, trouble shooting, and a list of all possible 
error messages and their meanings. 

Skill level required: Easy to learn and use for everyone. 



Reviewer: John Hedderman 
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NEC PRINTERS 

NEC 2050 $999.00 

NEC 3550 $1 699.00 

PERCOM/TANOON 
DRIVES 

5'/.' 320K Floppy $229.00 

5 Meg Hard w/Controller. . .$1 399.00 
10 Meg Hard w/Controller...S1 699.00 
15 Meg Hardw/Controller... $2095.00 
20 Meg Hardw/Controller.. $2399.00 
AMOEK 

31 0A Amber Monitor S 169.00 

0XY 100 Plotter S599.00 

Color II S399.00 

AST RESEARCH 

Six Pak Plus., from S279.00 

Combo Plus 1 1... from S2 79.00 

Mega Plus. ..from $309.00 

I/O Plus. ..from S1 39.00 

QUAORAM 

Ouadlink $499.00 

Quadboard...as low as S289.00 

Ouad 51 2 Plus. ..as low as. ..$249.00 

Quadcolor...as low as $2 19.00 

Chronograph S89.00 

Parallel Interface Board S89.00 

64K RAM Chips Kit $59.00 

MICROPRO 

WordStar/MailMerge $349.00 

InfoStar $299.00 

SpellStar S1 59.00 

CalcStar $99.00 

MICROSTUF 
Crosstalk S1 05.00 

MICROSOFT 

Multiplan S1 59.00 

ASHTON TATE 

dBASE II S389.00 

Friday! S1 85.00 

IUS 

EasyWriter II 1249.00 

EasySpeller S1 1 9.00 

EasyFiler S229.O0 

CONTINENTAL SOFTWARE 
1st Class Mail/Form Letter.. .$79.00 
The Home Accnt. Plus S88.00 




VISICORP 








IBM APPLE 


VisiCalc 






159.00 


VisiCalc 4 




159.00 




VisiCalc-Advanced 




269.00 


VisiWord/Spell 




249.00 




Visitrend/Plot 




199.00 


199.00 


VisiLink 






169.00 


VisiFile 




199.00 


169.00 


VisiSchedule 




199.00 


199.00 


Visidex 






159.00 


VisiPlot 






135.00 


VisiTerm 






75.00 


Desktop Plan 




199.00 


169.00 


Bus. Forecast Model 


75.00 


75.00 


Stretch Calc 




75.00 


75.00 


VisiTutor Calc 




59.00 


59.00 


VisiTutor-Advanced 


75.00 


75.00 


VisiTutor Word 




59.00 


59.00 


Vision Calc 




249.00 




Vision Graph 




129.00 




Vision Mouse 




159.00 




Vision Host 


pf. 


319.00 








APPLE 


IBM 


Write: 




79.00 


89.00 


Graph: 




79.00 


89.00 


Report: 




79.00 


79.00 


File: 




79.00 


89.00 


Solutions': as lowas 


16.00 


16.00 



'Call On Titles 
LOTUS 

1-2-3 $319.00 

PROFESSIONAL SOFTWARE 

PC Plus/The Boss $349.00 

SYNAPSE 
File Manager $89.00 



■PRINTERS- 



AXIOM 

AT-1 00 Atari Interface $239.00 

C0-100CBM 64/VIC 20 ....$239.00 

GP-100 Parallel Interface.. .$199.00 

BMC 

401 Letter Quality $589.00 

BX-80 Dot Matrix $269.00 

CENTRONICS 

1 22 Parallel $399.00 

739-1 Parallel $299.00 

739-3 Serial $349.00 

C.ITOH 

Gorilla Banana $209.00 

Prowriter 851 OP $379.00 

Prowriter 1 550P $679.00 

A1 (1 8 cps) 569.00 

F 10-40 $999.00 

F10-55 $1499.00 

COMREX 

ComWriter II LetterOuatity . . . $499.00 

DIABLO 

620 Letter Quality $949.00 

630 Letter Quality $1749.00 

DAI8YWRITER 

2OO0 $999.00 

Tractor Feed $1 09.00 

EPSON 
MX-80FT, MX-100.RX-80, RX-80FT, 

FX-80, FX-1 00 CALL 

IDS 

Prism 80. ..For Configurations. . .CALL 

Phsm 32. ..For Configurations. . . CALL 

MANNESMAN TALLY 

160L $589.00 

180L $799.00 

180 $309.00 



NEC 

201 0/2030 $899.00 

8023 Dot Matrix $379.00 

8025 Dot Matrix $669.00 

351 Serial/Letter Quality . . .$1 449.00 
3530 Parallel/Letter Quality ... $ 1 499.00 
7710/7730 Serial/Parallel... $1949.00 

OKIDATA 

82,83,84,92.93.2350,2410 ...CALL 

SMITH CORONA 

TP-2 $399.00 

Tractor Feed $1 1 9.00 

SILVER REED 

500 Letter Quality $469.00 

550 Letter Quality $699.00 

STAR 

Gemini 10X $299.00 

Gemini P1 5X $399.00 

Delta 10 $559.00 

Serial Board $75.00 

TOSHIBA CALL 

TRAN8TAR CALL 

PRINTER CABLES 

Available for Atari, Commodore, IBM, 
Apple, Epson, Kaypro, Televideo, Frank- 
lin, Eagle, Sanyo, Osborne, NEC, 
Zenith and many others. We supply all 
your computer needs! 

PAPER SUPPLIES 

1000shts.8'/ix1 1 Tractor Paper .1 9.99 
1000shts.14'/ix1 1TractorPaper..$24.99 
1 or 2" Address Labels $9.99 



MBC-5SO PC , 
MBC-555 PC , 



CALL. 
CALL. 



$2? SANYO 



MBC 1100 $1499.00 

FDD 3200-320K Drive $389.00 

MBC 1150 $1899.00 

MBC 1200 $1849.00 

FDD 6400-640K Drive $469.00 

MBC 1250 $2099.00 

PR 5500 Printer $599.00, 




eaGLE* 

COniPUTEK 




Spirit XL Portable $3999.00 

IIE-1 $1569.00 

IIE-2 $1899.00 

IIE-3 $2399.00 

IIE-4 $3299.00 

PC-E $1579.00 

PC-1 $2399.00 

PC-2 $2799.00 

PC-XL $3599.00 

1 620 $3599.00 

1 630 $5499.00 

1 640 $6499.00 

Cyma Software CALL 



TERMINALS 

914 $569.00 

924 $689.00 

925 $739.00 

950 $929.00 

970 $1039.00 

COMPUTERS 

Teleport Portable CALL 

800A $1099.00 

802 $2699.00 

803 $1 949.00 

802H $4695 .00 

806/20 $4999.00 

81 6/40 $91 99.00 

1 602 $3399.00 

1 603 CALL 



fcTel^ideo 




MONITORS 

AMDEK 

300 G reen $ 1 49 .00 

300 Amber $1 59.00 

31 Amber $1 69.00 

Color 1 $279.00 

Color 1 Plus $299.00 

Color 2 $399.00 

Color 2 Plus $41 9.00 

Color 3 $349.00 

Color 4 $699.00 

BMC 

1 2" Green $79.99 

12" Green HI-RES $119.99 

91 91 -1 3" Color $249.99 

GORILLA 

1 2" Green $88.99 

1 2" Amber $95.99 

NEC 

JB 1 260 Green $1 09.99 

JB 1201 Green $149.99 

JB 1205 Amber $159.99 

JC 1 21 5 Color $299.99 

JC 1 21 6 RGB $429.99 

PRINCETON GRAPHICS 

HX-1: RGB $519.00 

SAKATA 
100 $269.00 

TAXAN 

1 2" Green $1 1 9.00 

1 2" Amber $1 29.00 

Taxan 1 RGB $279.00 

Taxan 210 $299.00 

USI 

Pi 1, 9" Green $99.99 

Pi 2, 12" Green $119.99 

Pi 3, 12" Amber $149.99 

Pi 4, 9" Amber $1 39.99 

1 400 Color $269.99 

ZENITH 

ZVM 122 Amber $109.00 

ZVM123 Green $89.99 

ZVM 135 Color/RGB $469.99 



MODEMS 

ANCHOR 

Mark I (RS-232) $79.00 

Mark II (Atari) $79.00 

Mark III (TI-99) $1 09.00 

Mark IV (CBM/PET) $1 25.00 

Mark V (Osborne) $95.00 

Mark VI (IBM-PC) $169.00 

Mark VII(AutoAns/Auto Dial) ...$119.00 

Mark XII (1200 Baud) $299.00 

TRS-80 Color Computer $99.00 

9 Volt Power Supply $9.00 

HAYES 

Smartmodem 300 $21 9.00 

Smartmodem 1 200 $509.00 

Smartmodem 1 200B $459.00 

Micromodem II $265.00 

Micromodem II Plus $299.00 

Micromodem HE $269.00 

Micromodem 100 $299.00 

Smart Com II $89.00 

Chronograph $1 99.00 

NOVATION 

J-Cat $99.99 

SmartCat 103 $179.00 

SmartCat 103/212 $399.00 

AutoCat $21 9.00 

21 2 AutoCat $549.00 

Apple Cat II $249.00 

21 2 Appre Cat $569.00 

Apple Cat 212 Upgrade $309.00 

Cat $139.99 

D-Cat $149.00 

PC-Cat $339.00 

ZENITH 

ZT-1 $309.00 

ZT-1 $339.00 

ZT-11 $369.00 



APPLE INTERFACE 
CARDS Si BUFFERS 

Choose from PKASO, Orange Micro, 
MPC, MicroMax. Tymac, Quadram & 
Practical Peripherals CALL 




800»6H'8-5511 8GQ« 268* 4559 800«255°8950 



.w tn NV call (702(588 5654. Dept. 0315 
^ Order Status Number: 588-5654 
P.O. Box 6689. Statelme. NV 89449 

■'■IMq fish, no deposit orrC. Op. orders. Pre-paid orders f 
orders. Adb 3^c (minim umS5. 00} shipping and handli 
sales/tax. All i terns subjectto availability and price ch; 
cata I ag- 



in Toronto call (41 67828 0866. Dept 0315 

Order Status Number: 828-0866 

2505 Dunwin Drive. Unit 1 8 

Mississauga. Ontario. Canada L5L1T1 



In PA call (71 7)327-9575. Dept 0315 

Order Status Number: 327-9576 

Customer Service Number: 327-1450 

4-77 E. Third St.. Williamsport. PA 17701 



ece ive f,ree shipping within the UPS Continental United States with no waiting period for cert if led checks or money 
Tgonalt CO. D. and credit card orders. Larger shipments may require additional charges. NV and PA residents add 
nge. We stock manufactuer sand third party software for most ail computers on the market. Call today for our new 
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APPLE/FRANKLIN 
DISK DRIVES 

MICRO-SCI 

A2 $219.00 

A40 $299.00 

A70 $31 9.00 

C2 Controller $79.00 

C47 Controller $89.00 

RAIMA 

Elite 1 $279.00 

Elite 2 $389.00 

Elite 3 $569.00 



APPLE lis STARTER PACK 

64 K Apple lie. Disk Drive t Controller. 
80 Column Card. Monitor II & DOS 3.3 
COMPLETE SI 199.0Q 




ACE 10O0 Color Computer CALL 

ACE Family Pack System CALL 

ACE PRO PLUS System .' CALL 

ACE 1 200 Office Mgmt. System . . . CALL 
■NOT ME EXPENSIVE" 



f E commodore 



CBM BOS3...S599 

CBM 4032 $599.00 

CBM 8096 $869.00 

CBM 9000 $999.00 

81 28-80 $769.00 

C8M 64 K Memory Board ...$269.00 

8032 to 9O00 Upgrade $269.00 

2031 LP Disk Drive $299.00 

8050 Disk Drive $949.00 

8250 Disk Drive $1199.00 

4023 Printer $379.00 

8023 Printer $569.00 

6400 Printer $1399.00 

Z-RAM $499.00 

Silicon Ottice $699.00 

The Manager $ 1 99.00 

Soft ROM $1 25.00 

VisiCalc $1 59.00 

PROFESSIONAL 
SOFTWARE 

Word Pro 2 Plus $159.00 

Word Pro 3 Plus $189.00 

Word Pro 4 Plus/5 Plus. each... $279.00 

InfoPro $1 79.00 

Administrator $399.00 

Power $79.00 



SX-64 
PORTABLE 

S S69°° 




wmm^ 



VIC SO CALL 

CBM G4 S199 

MSDSD1 Disk Drive (C-64)... $349.00 

C1541 Disk Drive $249.00 

C1530 Datasette $69.00 

C1 520Color Printer/Plotter . . . $1 69.00 
M-801 Dot Matrix Printer... $2 19.00 
C1526 Dot Matrix/Serial.... $279.00 

C1 702 Color Monitor $249.00 

C1 31 1 Joystick $4.99 

C1 31 2 Paddles $1 1 .99 

C 1600 VIC Modem $59.00 

C1 650 Auto Modem $89.00 

Logo 64 $49.00 

Pilot 64 $39.00 

Simon's Basic $1 9.00 

Word Pro 64 Plus $59.00 

Parallel Printer Interface $49.00 

Calc Result 64 $129.00 

Codewriter 64 $75.00 

Quick Brown Fox $49.00 

Word Pro 64 Plus $59. OO 





We stock a full inventory of software for Commodore, such as: 
Artworx, Broderbund, Commercial Data, Creative Software, 
Epyx. HES. MicroSpec. Nufekop, Romox, Sirius, Synapse, 
Thorn EMI, Tronix, UMI, Victory, Spinnaker, Rainbow & Timeworks! 
CALL FOR DETAILS! 



HANDHELD 

COMPUTERS 



41 CX S24S.SS 

41 CV S1 99.99 

41 C S1 44.99 

HP 10C $51.99 

HP 11C $69.99 

HP 12C $88.99 

HP 1 5C $88.99 

HP 1 6C $88.99 

HP 75C $749.99 

HPIL Module $98.99 

HPIL Cass, or Printer $359.99 

Card Reader $1 43.99 

Extended Function Module . . . $63.99 
Time Module $63.99 

NEC 

PC-8201 Personal Computer... $599.00 
PC-822 1 A Thermal Printer ... $1 49.00 

PC-8281 A Data Recorder $99.00 

PC-8201 -068K RAM Chips... $105.00 
PC-8206A 32K RAM Cartridge.. $329.00 



PC-1 SOOA . . . S165.99 
PC-1 250A $88.99 

CE-1 25 Printer/Cassette. ... $1 28.99 
CE-1 50 Color Printer/Cassette...$1 71 .99 

CE-1 55 8K RAM $93.99 

CE 161 16K RAM $134.99 

CE 500 ROM Library $29.99 

TIM EX/SI IMC LAIR 

Timex/Sinclair 10OO $24.99 

Timex/Sinclair 2086 CALL 

16K Memory $25.00 

2040 Printer $99.99 

VuCalc $ 1 7 .99 

Mindware Printer $99.99 



HOME 
COMPUTE 



A 

ATARI 



BQOXL SI 89 

BQOXL $299 

1010 Recorder $74.00 

1 020 Color Printer $249.00 

1 025 Dot Matrix Printer $449.00 

1 027 Letter uality $299.00 

1030 DirectConnect Modem... CALL 

1 05O Disk Drive $379.00 

CX30 Paddle $ 1 2.00 

CX40 Joystick each. ..$8.00 

CX77 Touch Tablet $64.00 

CX80 Trak Ball $48.00 

CX85 Keypad $105.00 

488 Communicator II $229.00 

4003 Assorted Education.... $47.00 

401 1 Star Raiders $33.00 

4012 Missile Command $29.00 

401 3 Asteroids $29.00 

5049 VisiCalc $1 59.O0 

7097 Logo $79.00 

71 01 Entertainer $69.00 

71 02 Arcade Champ $75.00 

8026 Dig Dug $33.00 

8030 E.T. Phone Home $33.00 

8031 Donkey Kong $39.00 

8033 Robotron $35.00 

8034 Pole Position $39.00 

8036 Atari Writer $79.00 

8040 Donkey Kong, Jr $39.00 

8043 Ms. PacMan $39.00 

8044 Joust $39.00 

DISKETTES 

MAXELL 

5V«" MD-1 $29.00 

SV." MD-2 $39.00 

8" FD-1 (SS/DD) $39.00 

8" FD-2 (DS/DD| $49.00 

VERBATIM 

5'/V' SS/DD $26.99 

5V4" DS/DD $36.99 

ELEPHANT 

5V4" SS/SD $1 8.49 

5'/V' SS/DD $22.99 

5V«" DS/DD $28.99 

HEAD 
5V." Disk Head Cleaner $14.99 

DISK HOLDERS 

INNOVATIVE CONCEPTS 

Flip-n-File 10 $3.99 

Flip-n-File 50 $1 7 .99 

Flip-n-File(400/800ROM)Holder..$1 7.99 




LJK ENTERPRISES 

Atari Letter Perfect- Dtsk(40/80). . $79.99 
Atari Letter Pertect-ROM(40 cofl... $79.99 
Atari Letter Pertect-ROWKBO col).. .$79.99 

Atari Data Perfect- ROM(80 col) $79.99 

Atari Spell Perfect-DISK $59.99 

Atari Utility/MailMerge $21.00 

Apple Letter Perfect $99.00 

Apple Data Perfect $75.00 

Apple LJK Utility $21.00 

Apple LowerCase Generator ... $ 1 9.00 



1 200XL 

1 4QQXL 



CALL 
CALL 



PEFL3DM 



AT 88-S 1 $369.O0 

AT 88-A2 $259.00 

AT 88-S2 $529.00 

AT 88-S1 PD $429.00 

AT 88-DDA $1 1 9.00 

RFD40-S1 $449.00 

RFD 40-A1 $269.00 

RFD 40-S2 $699.00 

RFD 44-S1 $539.00 

RFD 44-S2 $869.00 

TEXAS INSTRUMENTS 

TX 99-S1 $279.00 

RANA 

1000 $319.00 

TRAK 
AT-D2 $389.00 

MEMORY BOARDS 

Axlon 32K $59.00 

Axlon 48K $99.00 

Axlon 1 28K $299.00 

Intec 32K $59.00 

Intec 48K $85.00 

Intec 64K $99.00 

Intec Real Time Clock $29.00 

ALIEN VOICE BOX 

Atari $1 1 9.00 

Apple $1 49.00 

KOALA PAD 

Atari $75.00 

Apple $85.00 

IBM $95.00 

CBM 64 $75.00 

CONTROLLERS & 

JOYSTICKS 

WICO 

Joystick $21 .99 

3-way Joystick $22.99 

Famous Red Ball $23.99 

Power Grip $21 .99 

BOSS Joystick $1 7.99 

ATARI/VIC Trak Ball $34.99 

Apple Trak Ball $54.99 

Apple Adapter $1 5.99 

Apple Analog $37.99 

KRAFT 

Joystick $41 .99 

Atari Single Fire $12.99 

Atari Switch Hitter $1 5.99 

Apple Paddles $34.99 

IBM Paddles $34.99 

IBM Joystick $46.99 

AMIGA 

31 00 Single $1 3.99 

3101 Pair $1 9.99 

Joyboard $37 .99 

TB 

Atari Trak Ball $47.99 

Apple Joystick $47.99 

Apple Trak Ball $47.99 



800-648.55f f 800268 -4559 800255»3950 



in WV call (70ZIS88-565.4 Dept OStS In Toronto call(416>B28-OS66 Dept 0315 InPAcalii 

Order Status Number: 588-5654 Order Status Number. 828-0866 Order! 

P.a.Bo>c66S».:statelme,N.W8944a 2505 Ounwin D-rive. Unit IB Custome 

Mississauga. Ontario. Canada L5L1T1 477 E. Thii 

CANADIAN ORDERS: All pnces are subject to shipping, lax and currency fluctuations. Call for exact pricing in Canada 
iNfERN^tldNALQRDERS: All shipments. outside the continental United States must be pre-paid by certified check only Include 3°v 
handling. EDUCATIONAL DISCOUNTS: Additional discounts are available to qualified Educational Institutions. 
'APQ S FPO: Add'3% {minimum $5. oq| shipping and handling. 



In PAcali (7171327 9575 Qept 0315 
Order Status Number. 327-9576 
Customer Service Number: 327-1450 
477 E. Third St.. Wilhamsport. PA 17701 
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LISA v2.6 



You don't need an I.Q. of200 toiearn assembly language on your App:e II or Apple//e. All you need is the 
best 6502 assembler around Lazer's Interactive Symbolic Assembler (LISA v2.6) LISA is the easv-to 

learn and easy-to-use system that will have even the absolute beginner up and running in a matter of r ^^ 

In addition to LISA'S clearly written 240-page manual more tutor. a matena! ><= available 'or LISA than anv 
other assembler (including books by D. Fudge, R.Hyde, W.Mauer.andR. Mottola) LISA is me beginner s best 

cnoice. 

Even if your I.Q. is 200. you'll appreciate LISA'S speed, power, and ease of use. A120.000 lines/minute it s 
20 to 30 times faster than RCA/ fvl or Apple's own Toolkit assembler That's why people like Bill P"- J ~~ 
-' "itzgerald. Don Fudge, and Steve Wozmak use it everyday LISA is very usable fhatswhyits 



the most often used assembler ever created for the Apple II 

LISAv2.6 is available for S79.95 at computer stores everywhere If your local computer stc 
a'copy you can order directly from 

Lazerware. 925 Lorna St., Corona, California 91720. (714) 735-1041 
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Least-Squares 



Curve 



Fitter 



by Brian Flynn 



Plot and depict the apparent trend between 
variables (such as stocks and interest rates) with 
the statistical routine 



The urge is almost irresistible. You see 
a plot of points between two variables, 
such as incidents of heart disease and 
frequency of cigarette smoking, or 
wheat harvest and yearly rainfall, or 
stock prices and interest rates. And you 
want to draw a line through the points 
to depict the apparent trend, as Figure 1 
shows. Least-Squares Curve Fitter is a 
statistical routine which will enable 
you to satisfy your desire for a line in a 
wide range of circumstances. More 
technically, Curve Fitter estimates a 
multiple linear regression equation in 
Apple II Basic. With little 
modification, the program will run on 
non-Apple systems as well. This article 
will explain the use of Curve Fitter by 
presenting a real-world example. 
Regression statistics will then be 
interpreted. 



A Real-World Example 

According to many Wall Street gurus, 
the only sure thing about the stock 
market is that it will fluctuate. The 
only certainty, in other words, is 
change. Nevertheless, is it not possible 
to devise an investment strategy that 
will work successfully on average, and 
over the long haul? With painstaking 
work and steady nerves, is it not 
possible to tilt the merciless roulette 
wheel of Wall Street in our favor for 
once? 

Perhaps it is. Many of us have 
probably noted that stock prices tend to 
fall when interest rates rise, and 
conversely, that stock prices tend to 
rise when interest rates fall. In short, 
the two variables seem inversely 
related. When one goes up the other 



Drawing a Line of Best Fit 



A Plot of Points 



The Trend Line 




Figure 1 



goes down, and vice versa. 

To test our hypothesis about stock 
prices and interest rates, we first gather 
the observations shown in Table 1, and 
then run Curve Fitter. The computer 
soon displays 

The Maximum Allowable Numbers of 

Observations and Explanatory 

Variables Are: 

Observations = 50 

Exp. Variables = 6 

Change the Values in Line 2020 for 

Different Limits 

"Stock Prices" is called the dependent 
variable, or Y. Our goal is to explain 
changes in Standard and Poor's Index of 
500 Leading Stocks from January 1982 
to June 1983, or for 18 months in all. 
The term to do the explaining is called, 
logically enough, the explanatory 
variable, or X. In our case, we have only 
one X, namely "Interest Rates." 

The computer now asks us to enter 
our data. First comes the dependent 
variable. Starting with January 1982, 
we key-in 100.0 for Y(l), 97.6 for Y(2), 
and so on down the list, all the way to 
141 .9 for Y(18), or June 1983. When the 
computer asks for Y(19), we simply hit 
RETURN without entering a number 
beforehand. This tells the computer 
that we have 18 observations. Data on 
interest rates are entered similarly. 

After we have entered the values of 
Table 1, the computer displays what 
we have keyed-in, and gives us a 
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Table 1 



Stock Prices and Interest Rates 



Year 


S I P 500 


3 Month 


and 


Stock Index 


T-Bill 


Month 




Rate 


82s 1 


100.0 


12.37! 


;2 


97.6 


13.5 


:3 


94.5 


12.7 


;4 


99.2 


12.7 


:5 


99.2 


12.1 


:6 


93.5 


12.5 


i7 


93.3 


11.4 


:S 


93.5 


8.7 


:9 


104.4 


7.9 


ilO 


113.1 


7.7 


:11 


117.8 


8.1 


: 12 


118.8 


7.9 


83:1 


123.0 


7.9 


:2 


125.2 


8.1 


:3 


129.5 


8.4 


:4 


134.5 


8.2 


:S 


139.9 


8.2 


:6 


141.9 


8.8 



chance to make corrections. Ten 
observations are shown at a time on the 
screen, so do not worry about scrolling. 

The computer now estimates our 
regression equation, and then displays 



Reqression Results 



Ten 
80 
Bl 



Value 

165,945 

-5.467 



R-Squered 
F-Statistic 

Standard Error of 
the Estimate 

Durbin-Natson 
Statistic 



t-Statistic 
11.996 
-3.979 

■ 0.497 
* 15.830 



12.455 



0.263 



These statistics are interpreted as 
follows. First, BO is the Y-intercept of 
our equation and Bl the slope, as Figure 
2 illustrates. The Y-intercept of 165.9 
means that, if interest rates were zero, 
our index of stock prices would equal 
165.9, or so we estimate. The slope of 
-5.5 means that a one percentage point 
rise in interest rates will induce an 
estimated 5.5 unit drop in the Index of 
500 Leading Stocks. In short, the 
relationship between stock prices and 
interest rates is indeed negative, as 
conjectured. 

16 



Regression Equation 



Stock Prices 




Trend Line 



Figure 2. The slope of a line is the change in Y (denoted 
by AY) divided by the change in X (denoted by A X). 



These values of BO and Bl are 
merely best guesses rather than perfect 
measurements, however. The true 
values are always unknown and must 
be estimated. But this, after all, is the 
purpose of regression analysis. 

The t-statistics indicate how precise 
the estimates of BO and Bl are. As a 
rough rule of thumb, a t-value greater 
than two in absolute value means that 
an explanatory variable is statistically 
significant in explaining changes in Y. 

The next three values are goodness- 
of-fit statistics. The R-squared, also 
called the coefficient of determination, 
is the proportion of variation in the 
dependent variable explained by the 
regression equation. It ranges from to 
1, with a value close to meaning that 
the equation fits the data poorly, and 
with a value close to 1 meaning that it 
fits the data well. Figure 3 illustrates 
this. The R-squared of 0.497 in our 
example means that changes in interest 
rates explain roughly 50% of the total 
variation in stock prices. The source of 



the other 50% of the variation is 
unfortunately unknown. 

Next, the F-statistic is the ratio of 
the explained to the unexplained 
variance in Y. The higher the value of 
F, the better does the regression 
equation explain changes in the 
dependent variable. The standard error 
of the estimate is a measure of the 
average error made in predicting Y 
using the regression equation, or 12.5 
index points in o.ur example. 

Finally, the Durbin-Watson 
statistic is used in testing for first-order 
serial correlation among regression 
residuals. A residual, let me hasten to 
explain, is an actual value of Y minus 
the corresponding value of Y predicted 
by the regression equation, as Figure 4 
shows. As a rough rule of thumb, a DW 
value of around 2 means that serial 
correlation is not a problem. The 
miserly value of 0.263 in our example 
warns us that some systematic 
variation in stock prices is unexplained 
by interest rates. 



y 


Goodness of Fit 
High R 1 Y 


Low R* m 




Figure 3. A high R 2 means that the regression line fits 
the data well. A low R 2 means that the regression line 
fits the data poorly. 
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Regression Residuals 




Figure 4. A residual is the vertical distance between an 
actual value of Y and the estimated regression line. 



Summary 

In summary, our regression results are 
only fair. Changes in interest rates 
account for roughly half of the 
fluctuation in stock prices over the last 
18 months. A large part of the market's 
movement, then, is left unexplained. 
Hence, trying to predict the future 
course of the stock market using 
interest rates alone is a risky business 
indeed. Perhaps Madame Zelna's 
crystal ball can defeat the dark forces of 
ignorance and uncertainty, and shed 
light on the problem. 





2030 


READ NX,KX 


1 REM FLYNN MARCH 1984 


2040 


PX=KX+1 


10 REM MULTIPLE LINEAR REGRESSION 


2050 


DIM C(PX),X(NX,PX),R(PX,2*PX),E(NX),B$(KX),V$(KX) 


20 REM BRIAN J. FLYNN 


2055 


DIM T(PX),BIPX) 


30 REM NOVEMBER 1983 


2060 


REM COEFFICIENT SYMBOLS 


40 REM INTIALIZE 


2070 


FOR 1=0 TO KX 


50 S0SUB 1000 


2080 


BUII-'B'tSTRim 


60 REM ENTER & EDIT DATA 


2090 


NEXT I 


70 G0SUB 3000 


2100 


REM VARIABLE SYMBOLS 


80 REM COMPUTE 


2110 


V*(0)='Y" 


90 60SUB 7000 


2120 


FOR 1=1 TO KX 


100 REM DISPLAY RESULTS 


2130 


V*(I)="X'+STR*(I) 


110 60SUB 12500 


2140 


NEXT I 


120 END 


2150 


RETURN 


m*tt**HHt*«Hm**H*«mm 


2500 


REM INTRODUCTION 


« INSERT COMPUTER SPECIFIC * 


2510 


60SUB 300 


* DRIVERS HERE t 


2520 


PRINT 'THIS PROGRAM ESTIMATES A MULTIPLE" 


* (SEE TABLE OF SUBROUTINES) * 


2530 


PRINT 'LINEAR REGRESSION EQUATION." 


»mm«»«tm«tmm«Hmmt 


2540 


PRINT 


1000 REN INITIALIZE 


2550 


PRINT 'THE MAXIMUM ALLOWABLE NUMBERS OF' 


1010 REM HEADING 


2560 


PRINT 'OBSERVATIONS & EXPLANATORY VARIABLES" 


1020 60SUB 1500 


2570 


PRINT 'ARE!" 


1030 REM INITIAL VALUES 


2580 


PRINT 


1040 60SUB 2000 


2590 


PRINT ' OBSERVATI0NS=';NX 


1050 REM INTRODUCTION 


2595 


PRINT "EXPLANATORY VARIABLES'" ; KX 


1060 60SUB 2500 


2600 


PRINT 


1070 RETURN 


2610 


PRINT 'CHANGE THE VALUES IN LINE 2020' 


1500 REM HEADING 


2620 


PRINT 'FOR DIFFERENT LIMITS.' 


1510 60SUB 300 


2630 


VT=22:HT=6s G0SUB 400 


1520 VT=11:HT=15: G0SUB 400: PRINT 'MULTIPLE' 


2640 


PRINT 'HIT ANY KEY TO CONTINUE "; 


1530 VT=12:HT=16: 60SUB 400s PRINT "LINEAR" 


2650 


G0SUB 600: Z«=XX$ 


1540 VT=13:HT=17: G0SUB 400s PRINT "REGRESSION' 


2660 


RETURN 


1550 FOR D=l TO 750s NEXT D 


3000 


REM ENTER k EDIT DATA 


1560 RETURN 


3010 


REM NUMBER OF X'S 


2000 REM INITIAL VALUES 


3015 


G0SUB 3250 


2010 REM MAX NUMBER OF OBSERVATIONS « X'S 


3020 


REM DATA ON Y 


2020 DATA 50,6 


3030 


60SUB 3500 
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3040 REM DATA ON THE X'S 


5020 


60SUB 300 


3050 60SUB 4000 


5030 


PRINT "THESE ARE VALUES OF "jV*(I);V 


3060 REN EDIT 


5040 


PRINT 


3070 60SUB 4500 


5050 


FOR J=l TO 10 


30S0 RETURN 


5060 


IF J+L*10<=N THEN PRINT V$(I);"( " ; J+L*10; TAB (8) ; 


3250 REM NUMBER OF X'S 




")="jX(J+L»10,II 


3260 GOSUB 300 


5070 


NEXT J 


3270 VT=1:HT=1: GOSUB 400 


5080 


RETURN 


3280 PRINT "HQH MANY EXPLANATORY VARIABLES" 


5500 


REM CORRECT DATA 


3290 PRINT "ARE IN YOUR REGRESSION EQUATION," 


5510 


GOSUB 800 


3300 PRINT "CONSTANT TERM EXCLUDED ?"j 


5520 


VT=19:HT=1: GOSUB 400: PRINT "CORRECTIONS (Y/N) "; 


3310 60SUB 600: K*=XX* 


5530 


GOSUB 600: A$=XX$ 


3320 K=VAL(K$) 


5540 


IF A*="N" THEN 5670 


3330 REM CHECK FOR LE6AL NUMBER 


5550 


IF AIO'Y" THEN 5510 


3340 IF K>0 AND K<=KX THEN 3400 


5560 


VT=21:HT=18:SP=20: GOSUB 500 


3350 VT=22:HT=7: GOSUB 400 


5565 


VT=22:HT=18:SP=20: GOSUB 500 


3360 IF K<1 THEN PRINT "AT LEAST ONE X IS NEEDED ! " 


5567 


PRINT CHRKBL) 


3370 IF K>KX THEN PRINT "SORRY, ONLY "jKX; 


5570 


VT=22:HT=1: GOSUB 400: PRINT "TCI BE CORRECTED "; 


"X'S ALLQMED !" 


5590 


60SUB 700: S$=XX$ 


3380 FOR D=l TO 5i GOSUB 800: NEXT D 


5600 


8=INT(VAL(S$M 


3390 60T03270 


5610 


IF Q<(l+L»10> OR B')N OR QX10+LH0I THEN GOTO 5700 


3400 RETURN 


5620 


VT=24:HT=1: GOSUB 400: 


3500 REM DATA ON Y 




PRINT "WHAT SHOULD THE VALUE BE "; 


3510 60SUB 300 


5630 


GOSUB 800 


3520 PRINT "PLEASE ENTER DATA ON THE DEPENDENT" 


5640 


GOSUB 700: S$=XX$ 


3530 PRINT "VARIABLE, OR Y. HIT 'RETURN'" 


5650 


X(Q,I)=VAL(S$) 


3540 PRINT "WHEN THROUGH." 


5660 


GOSUB 5000: 60T0 5510 


3550 N=NX 


5670 


RETURN 


3560 FOR 1=1 TO NX 


5700 


VT=22:HT=18: GOSUB 400: PRINT " OUT OF BOUNDS !' 


3570 VT=5:HT=10:SP=15: GOSUB 500 


5710 


FOR D=l TO 1000: NEXT D: GOTO 5565 


3580 VT=5:HT=2: GOSUB 400: PRINT "Y( "; I; TAB(8);")= "; 


7000 


REM COMPUTE 


3590 GOSUB 700: Z*=XX$ 


7010 


REM DEGREES OF FREEDOM 


3600 IF Z*="" THEN N=H:I=NX: 60T0 3620 


7020 


60SUB 7500 


3610 X(I,0)=VAL(Z$) 


7025 


REM INSERT VECTOR OF l'S FOR CONSTANT TERM 


3620 NEXT I 


7027 


GOSUB 7750 


3630 IF N>2 THEN 3660 


7030 


REM TALLY MATRIX OF CROSS PRODUCTS 


3640 VT=22:HT=5: GOSUB 400 


7040 


60SUB 8000 


3645 PRINT "AT LEAST 3 OBSERVATIONS NEEDED !' 


7050 


REM INVERT MATRIX 


3650 FOR D=l TO 20: GOSUB 800; NEXT D 


7060 


GOSUB 8500 


3655 GOTO 3510 


7070 


REM COMPUTE COEFFICIENTS 


3660 RETURN 


7080 


60SUB 9000 


4000 REM DATA ON THE X'S 


7090 


REM COMPUTE ANOVA STATISTICS 


4010 TOR 1=1 TO K 


7100 


GOSUB 9500 


4020 GOSUB 300 


7110 


REM COMPUTE T-STATISTICS 


4030 PRINT "PLEASE ENTER DATA FOR "jV$(I);":" 


7120 


GOSUB 12000 


4040 FOR J=l TO N 


7130 


RETURN 


4050 VT=5:HT=10:SP=20: GOSUB 500 


7500 


REM DE6REES OF FREEDOM 


4060 VT=5:HT=1: GOSUB 400 


7510 


V=N-K-1 


4065 PRINT V$(I>;"( ";Jj TAB(8)j")= "| 


7520 


GOSUB 300 


4070 GOSUB 700: Z*=XX$ 


7530 


IF V<1 THEN GOTO 7600 


4080 X(J,I)=VAL(Z$) 


7540 


RETURN 


4090 NEXT J: NEXT I 


7600 


PRINT "YOU HAVE ONLY ";V;" DEGREES OF FREEDOM !': 


4100 RETURN 




STOP 


4500 REM EDIT DATA 


7610 


RETURN 


4510 FOR 1=0 TO K 


7750 


REM VECTOR OF l'S 


4520 FOR L=0 TO INT((N-1)/10) 


7760 


REM MAKE ROOM 


4530 REM DISPLAY DATA 


7770 


FOR I=K TO 1 STEP -1 


4540 GOSUB 5000 


7780 


FOR J=l TO N 


4550 REM CORRECT DATA 


7790 


X(J,I+1)»X(J,I) 


4560 GOSUB 5500 


7800 


NEXT J: NEXT I 


4570 NEXT L: NEXT I 


7810 


REM INSERT 


4580 RETURN 


7820 


FOR J=t TO N 


5000 REN DISPLAY DATA 


7830 


X(J,t)=l 


5010 REM DISPLAY UP TO 10 OBSERVATIONS AT A TINE 


7840 


NEXT J 
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7850 P=K+1 


10070 REM ERROR SUM OF SQUARES 




7960 RETURN 


10080 ES-0 




8000 REM MATRIX OF CROSS PRODUCTS 


10090 FOR 1=1 TO N 




8010 VT=12:HT=0: GOSUB 400: PRINT " COMPUTING ..." 


10100 ES»ES+E(t)#E(I) 




8020 FOR 1=1 TO P 


10110 NEXT I 




8030 FOR J=l TO P 


10120 REM RESIDUAL VARIANCE 




8040 R(I,J>=0 


10130 RV=ES/V 




8050 FOR L=l TO N 


10140 RETURN 




8060 R(I,J>=RU,J)+X(L,I)*K(L,J) 


10500 REM ANOVA TERMS 




8070 NEXT L: NEXT J: NEXT I 


10510 REM TOTAL SUM OF SQUARES 




8080 RETURN 


10520 60SUB 11000 




8500 REM INVERT MATRIX 


10530 REM REGRESSION SUM OF SQUARES 




8510 REM TACK ON IDENTITY MATRIX 


10540 RS=TS-ES 




8520 FOR 1=1 TO P 


10550 REN STANDARD ERROR OF THE ESTIMATE 




8530 FOR J=l TO P 


10560 SE=S8R(RV> 




8540 IF I=J THEN RII,J+P)=1 


10570 REN F-STATISTIC 




8545 IF IOJ THEN R(1,J+P)=0 


10580 F=(RS/K)/RV 




8550 NEXT J: NEXT I 


10590 REM R-SQUARED 




8560 REM INVERT 


10600 RQ=RS/TS 




8570 FOR 1=1 TO P 


10610 RETURN 




8580 REM ADJUST KEY ROM 


11000 REM TOTAL SUM OF SQUARES 




8590 C=R(I,n 


11010 S=0:SQ=0 




8600 FOR J=I TO 2*P 


11020 FOR 1=1 TO N 




8610 RII,J)=RU,JWC 


11030 S=S+X(I,0> 




8620 NEXT J 


11040 SQ=SQ+XU,0>"2 




8630 REM ADJUST REMAINING ROMS 


11050 NEXT I 




8640 FOR J=l TO P 


11060 TS-SS-S»S/N 




8650 X=R(J,D- 


11070 RETURN 




8660 FOR L=I TO 2*P 


11500 REM DURBIN-WATSON STATISTIC 




8670 IF JOI THEN R(J,L)=R(J,L)-X*R(I,L) 


11510 REM NUMERATOR 




8680 NEXT L:NEXT J: NEXT I 


11520 S=0 




8690 RETURN 


11530 FOR 1=2 TO N 




9000 REM TALLY COEFFICIENTS 


11540 S=S+(E(I)-E(I-1)) A 2 




9005 REM X'Y VECTOR 


11550 NEXT I 




9010 FOR 1=1 TO P 


11560 REM VALUE 




9020 C(I)=0 


11570 DH=S/ES 




9030 FOR J=l TO N 


11580 RETURN 




9040 C(I)=C(I)+X(J,I)*X(J,0) 


12000 REM T-STATISTICS 




9050 NEXT Js NEXT I 


12010 FOR 1=1 TO P 




9060 REM COEFFICIENTS 


12020 T(I)=B(I)/SQR(RV*R(I,I+P)) 




9070 FOR 1*1 TO P 


12030 NEXT I 




9080 B(I)=0 


12040 RETURN 




9090 FOR J=l TO P 


12500 REM DISPLAY RESULTS 




9100 B(I)=B(I)+R(I,J+P)*C(J) 


12510 REM EQUATION 




9110 NEXT J; NEXT I 


12520 60SUB 13000 




9120 RETURN 


12530 REM SUMMARY STATISTICS 




9500 REM ANOVA STATISTICS 


12540 GOSUB 13500 




9510 REM RESIDUAL VARIANCE 


12550 RETURN 




9520 SOSUB 10000 


13000 REM EQUATION 




9530 REM SUMMARY STATISTICS 


13010 60SUB 300 




9540 60SUB 10500 


13020 PRINT TAB (9) "REGRESSION RESULTS" 




9550 REM DURBIN-HATSON STATISTIC 


13030 PRINT 




9560 GOSUB 11500 


13040 PRINT "TERM"; TAB( 12) "VALUE" ; 




9570 RETURN 


TAB(24)"T-STATISTIC" 




10000 REM RESIDUAL VARIANCE 
10010 REM VECTOR OF RESIDUALS 


13050 PRINT "— -"; TABU2)" "; 

TADfHI ■__„ ___• 








10020 FOR 1=1 TO N 


13060 PRINT 




10030 YH=0 


13070 FOR 1*1 TO P 




10040 FOR J=l TO P 


13080 PRINT BKI-1)} TAB(9)B(I)} TAB(24)T(I) 




10050 YH=YH+X(I,JI#B(J) 


13090 NEXT I 




10060 NEXT J 


13100 VT=22:HT=6{ 60SUB 400 




10065 E(I)=X(I,0)-YH 


13110 PRINT "HIT ANY KEY TO CONTINUE "; 




10067 NEXT I 


13120 GOSUB 600: Z*=XX* 
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13130 RETURN 

13500 REM SUMMARY STATISTICS 

13510 60SUB 300 

13520 PRINT TAB (8) "SUMMARY STATISTICS" 

13530 PRINT 

13540 PRINT "R-SSUARED =";R9 

13545 PRINT 

13550 PRINT 'F-STATISTIC =";F 

13560 PRINT 

13570 PRINT "STANDARD ERROR" 

13580 PRINT "OF THE ESTIMATE="jSE 

13590 PRINT 

13600 PRINT "DURBIN-HATSON" 

13610 PRINT "STATISTIC =";DN 

13620 VT-22:HT=6: 60SUB 400 

13630 PRINT "HIT ANY KEY TO CONTINUE "; 

13640 80SUB 600: ZI-XXI 

13650 RETURN 


410 FOR XX-1 TO VTsPRINT :NEXT XX 
420 IF HT>0 THEN PRINT TAB(HT); 
430 RETURN 

499 REM ** POSITION CURSOR AND SPACE ** 

500 S0SUB 400: PRINT SPC(SP);: RETURN 

599 REM ** SET SUBROUTINE »» 

600 0$="" 

610 SET Ml IF XX**"" THEN 610 
620 RETURN 

699 REM ** INPUT SUBROUTINE ** 

700 XX*="»:PRINT "{SPACE10,LEFT10}"ji INPUT XX*! 
RETURN 

799 REM ** MAKE SOUND (OPTIONAL) »* 

800 RETURN : REM ADD CODE TO HAKE A 

801 REM SOUND IF YOU SO DESIRE !!! 


200 REM FLEX SUBROUTINES 

299 REM ** CLEAR DISPLAY *# 

300 PRINT CHR*(ll)jCHR*(27);"X";CHR*(24);:RETURN 

399 REM ** POSITION CURSOR »* 

400 IF VT>0 THEN PRINT CHR$ < i 1 ) ; : FOR 11=1 TO VT:PRINT: 
NEXT II 

410 IF HT>0 THEN PRINT TAB(HT); 
420 RETURN 

499 REM ** POSITION CURSOR AND SPACE ** 

500 60SUB 400: PRINT SPC(SP);: RETURN 

599 REM »* 6ET CHARACTER ROUTINE ** 

600 INPUT XX*: IF XX*="X" THEN XX*="" 
610 RETURN 

699 REM »» INPUT ROUTINE " 

700 60T0 600 

799 REM ** MAKE SOUND (OPTIONAL! " 

800 RETURN : REM ADD CODE HERE TO MAKE A 

801 REN SOUND IF YOU SO DESIRE ! ! 


Listing Notes 

The above listing does not include routines to position the 
cursor, get character input, input strings or make a sound. 
These are provided below for three BASIC'S: Flex, 
Applesoft and Commodore 64. Key in the appropriate 
version for your microcomputer. If you have some other 
micro, except for the Atari, you should be able to adapt 
this program by fixing up these I/O routines to match the 
capabilities/limitations of your system. 

If you have an Atari, the program will require more 
extensive changes than just these I/O routines. This is 
because the program makes use of string arrays which are 
not simply supported on the Atari. 


200 REM APPLE II SUBROUTINES 

299 REM ** HOME AND CLEAR DISPLAY »* 

300 HOME : RETURN 

399 REM ** POSITION CURSOR ** 

400 IF VT>0 THEN VTAB(VT) 
410 IF HT>0 THEN HTABIHT) 
420 RETURN 

499 REM »♦ POSITION CURSOR AND PRINT SPACES *» 

500 60SUB 400: PRINT SPC(SP);: RETURN 

599 REM *♦ GET SUBROUTINE ** 

600 6ET XX*: RETURN 

699 REM t# INPUT SUBROUTINE ** 

700 INPUT XX*: RETURN 

799 REM »♦ MAKE SOUND ♦* 

800 PRINT CHRK7);: RETURN 




Brian Flynn may be reached at Flynn 
Laboratories, 1704 Drewlaine Drive, Vien- 
na, VA 22180. 


[Ed. Note: It is interesting to examine the differences between the 
various implementations of BASIC on as fundamental an 
operation as INPUT. To INPUT a NULL string in Applesoft 
BASIC, a simple INPUT XX$ will suffice. In Commodore BASIC 
you must first set the string to the null string by a XX$ = "". The 
screen location under the cursor must be a space or the character 
under the cursor will be returned as the string. In Flex BASIC,, 
used on our FOCUS system and the CoCo among others, the 
INPUT statement will not allow a null string input. In this 
program I used the letter X as input to be tested and changed into 
the null string. 

And INPUT seemed so trivial!) 

JMCAO 


200 REM COMMODORE SUBROUTINES 

299 REM *♦ HOME AND CLEAR DISPLAY ** 

300 PRINT "{CLEAR}"; : RETURN 

399 REM ♦♦ POSITION CURSOR ** 

400 PRINT "{HOME}"; 
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FLOPPY DISKS SALE *$1.19 ea. 

Economy Model or Cadillac Quality 



IORAH 



CERTIFIED PERSONAL 
COMPUTER DISK 



We have the lowest prices! lorah 



CERTIFIED PERSONAL 
COMPUTER DISK 



•ECONOMY DISKS 

Good quality 5 1 A" single sided single density with hub rings. 
Bulk Pac 100 Qty. $1.19 ea. 

10Qty. 1.39 ea. 



Total Price 
Total Price 



$119.00 
13.90 



CADILLAC QUALITY 

• Each disk certified • Free replacement lifetime warranty • At 

For those who want Cadillac quality we have the Loran Floppy Disk. Usedb^j^b^S^tJniils because they can rely 
on Loran Disks to store important data and programs without {e^.^ffe«8^^bH v ^oi^lift disk is 100% certified (an 
exclusive process) plus each disk carries an exclusive FBEE^jr^C^EN^df^^^WARRANTY. With Loran 
disks you can have the peace of mind without the frusti^iQi^ spent in program 

development. ' . *" .. -^ 1 "'*"" ' 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only sample test on a batch be^t^ then claim they are 

certified. Each Loran disk is individually che'ekeotsdy^^ifr^ loss during your 

lifetime! " ; ■ ''';-' * , r \" 

FREE REPLACEMENT LIFETIME WARRANTY ;[ ^MM^&$$M-&h^ ■ 

We are so sure of Loran Disks that we give you a free replacement VCrarranty^^)^irtt|^i|urejto i perform due to faul- 
ty materials or workmanship for as long as you oWn your Loran disk. " '':--\* ^y^JiV-"^":''' ';■• 

AUTOMATIC DUST REMOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disf surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life 'oC the Bisk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LlrttERrhakes sure the disk-killers 
(dust & dirt) are being constantly cleaned while trie disk is being operated; PLUS the Loran Disk has the highest 
probability rate of any other disk in the industry for storing and retaining o^ta without, loss for the life of the disk. 

Loran is definitely the Cadillac disk in the world 

Just to prove it even further, we are offering these super LOW INTRODUCTORY PRICES 
List $4.99 ea. INTRODUCTORY SALE PRICE $2.99 ea. (Box of 10 only) Total price $29.90 

$3.33 ea. (3 quantify) Total price $9.99 

All disks come with hub rings and sleeves in an attractive package. 



DISK DRIVE CLEANER M9.95 

Everyone needs a disk drive doctor I 

FACTS 

• 60% of all drive downtime is directly related to poorly maintained drives. I 

• Drives should be cleaned each week regardless of use. I 

• Drives are sensitive to smoke, dust and all micro particles. I 

• Systematic operator performed maintenance is the best way of ensuring error free use of your computer! 
system. I 

The Cheetah disk drive cleaner can be used with single or double sided 5V>" disk drives. The Cheetah is an 
easy to use fast method of maintaining efficient floppy diskette drive operation. 

The Cheetah cleaner comes with 2 disks and is packed in a protective plastic folder to prevent contamination. 
List $29.95 /Sale $19.95 



■ Add $10.00 (or shipping, handling and Insurance. Illinois residents t 

I please add 8% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII I 

| orders. WE DO NOT EXPORT TO OTHER COUNTRIES. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 j 

| days for delivery, 2 to 7 days for phone orders, 1 day express mail! I 

j Canada orders must be in U.S. dollars. Visa • MasterCard ■ COD. J 



ENTERPRIZES ""^m^o*™ 

BOX SS0, BARRINGTON, ILLINOIS 60010 
Phon* 312/3825244 to ordar 



@ SANYO MONITOR SALE!! 




9" Data Monitor 



80 Columns x 24 lines 
Green text display 
East to read - no eye strain 
Up front brightness control 
High resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive metal cabinet 
UL and FCC approved 



• 15 Day Free Trial - 90 Day Immediate Replacement Warranty 



9" Screen - Green Text Display $ 79.00 

12" Screen -Green Text Display (anti-reflective screen) $ 99.00 

12" Screen - Amber Text Display (anti-reflective screen) $119.00 

14" Screen - Color Monitor (national brand) $249.00 

Display Monitors From Sanyo 



With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of low cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5x7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



Official Video Products 
of the Los Angeles 1984 Olympics 



. 4 >r-». , j~.p. 
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• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. « ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



I Add S10.00 for shipping, handling and Insurance. Illinois residents 1 
| please add 6% tax. Add $20.00 tor CANADA, PUERTO RICO, HAWAII | 
| orders. WE DO NOT EXPORT TO OTHER COUNTRIES. j 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 | 
| days for delivery, 2 to 7 days for phone orders, 1 day express mail! I 
■ Canada orders must be in U.S. dollars. Visa - MasterCard - C.O.D. • 



ENTERPRIZES ,we LOvE ouB cusr ° uERs> 

BOX 550, BARRINGTON, ILLINOIS 60010 
Prion* 312/382-5244 to order 




FANTASTIC 

PRINTER 

SALE 



as 

low 

as 



$ 



149 



00 



• 15 Day Free Trial - 180 Day Immediate Replacement Warranty 



80 COLUMN THERMAL PRINTER — 60 CPS 

Bi-directional, dot matrix, prints 8%" letter size paper, full 80 columns, high 
resolution graphics, dot bit addressable, special symbols and true decenders! 
(Centronics parallel interface) 

80 COLUMN TRACTOR-FRICTION PRINTER - 80 CPS 

Bi-directional, dot matrix, impact, prints single sheets, continuous feed paper, 
adjustable columns, 40 to 132 characters! Roll paper adapter $32.95. (Serial or 
Centronics parallel interface) 

PREMIUM QUALITY 10" CARRIAGE T/F PRINTER — 120 CPS 

Bi-directional, impact, 9x9 dot matrix with double strike for 18 x 18 dot matrix. 
High resolution bit image (120 x 144 dot matrix) underlining back spacing, left and 
right margin settings, true lower decenders, with super and sub scripts. Prints 
standard, italic, block graphics, special characters, plus 24 of user definable 
characters and much morel! Prints single sheets, continuous feed and roll paper! 
(Centronics parallel interface) 

PREMIUM QUALITY 15%" CARRIAGE PRINTER — 120 CPS 

Has all the features of the Premium Quality 10" Carriage T/F Printer above plus a 

15%" carriage and more powerful electronic components to handle large business 

forms! (Centronics parallel interface) 

HIGH SPEED PREMIUM QUALITY T/F 

10" PRINTER - 160 CPS 

Save printing time with these plus features: 160 CPS speed, 100% duty cycle, 8K 
buffer diverse character fonts special symbols and true decenders, vertical and 
horizontal tabs. This is Red Hot Efficiency!!! (Serial or Centronics parallel interface) 

HIGH SPEED PREMIUM QUALITY 

T/F 15%" PRINTER — 160 CPS 

Has all the features of the 10" Carriage high speed printer plus a 15Vi" carriage and 
more powerful electronics to handle larger business forms! (Serial or Centronics 
parallel interface) 

PARALLEL PRINTER INTERFACES: (IN STOCK) 

• For VIC-20 and COMMODORE 64 $49.00 

• For all APPLE COMPUTERS $69.00 

• For ATARI 400 and 800 COMPUTERS $79.00 

NOTE: Other printer interfaces are available at computer stores! 



WE DO NOT EXPORT TO OTHER COUNTRIES EXCEPT 
CANADA. 

Enclose Cashiers Check, Money Order or Personal Check. Allow 
14 days for delivery, 2 to 7 days for phone orders, 1 day express 
mail! Canada orders must be in U.S. dollars. We accept Visa 
and MasterCard We ship COD. 



LIST 

$199 



$399 



$499 



SALE 

$149 



$209 



$289 



$599 



$699 



$799 



$379 



$499 



$599 



SALE 



SALE 



PMTPRPRI7P5^ WE LOVtOUS CUSTOMERS) 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phone 312/382-5244 to order 
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** Announcing 

The Winners 
of the 
** Graphics Contest 



** 



llllllllllllls 



Grand Prize 



Title: 
System: 

Graphics Package: 
Computer Artiste: 



Taking the Bait 

Commodore 64 

Koala Pad 



Thaworn Phatinawin 

1425 E. Ocean Blvd. #11 

Long Beach, CA 90802 

(This photo is on this month's cover. 

Another entry by Mr. Phatinawin titled: MICRO appeared 

on last month's MICRO cover.) 



Apple Winners 



First Prize 



Title: 
System: 

Graphics Package: 
Computer Artiste: 



Second Prize 

Title: 

by: 



Country 5 

Apple D 

Koala/Micro Illustrator 

Thomas Wilson 

5 Cresta Circle #9 

San Rafael, CA 94903 



Polly Want a Cracker? 

Lori Karoub 

Ypsilanti, MI 48197 



Color Computer Winner 



First Prize 

Title: 
System: 

Graphics Package: 
Computer Artiste: 
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Space Shuttle 

Color Computer 

Personal Software 

Eric White 
375 Palm Springs Drive #1112 
Altamonte Springs, FL 32701 



Congratulations from the staff of MICRO to all the 

winners of the Graphics Contest which was announced in 
the September, 1983 issue. The subjects and methods of 
presentation were all interesting, colorful, and varied. A 
surprising number included animation as well. 
We truly enjoyed the efforts of everyone who entered, and 
we thank you for taking the time to participate. 



Atari Winners 



First Prize 
Title: 
System: 

Graphics Package: 
Computer Artiste: 



Second Prize 

Title: 

by: 



Third Prize 

Title: 

by: 



Title: 
by: 



Dragon Slayer 

Atari 800 

Micropainter 

Vic Albino 

18501 194 NE 

Woodinville, WA 98072 



Loon Haven 

Edward H. Cheely 

Accord, NY 12404 



Landscape 

Jane Zinke 

San Diego, CA 92115 

Starwars Collection 

Tim Stevenson 

Fairfax, VA 22033 



Commodore Winner 

There was only one entry in the Commodore class. This 
entry was so good that it won the Grand Prize. Too bad 
you did not take the time to enter - you would have 
WON. 
MICRO No. 70- March 1984 



Hewlett Packard 

Write or call for prices. 



Wl 



SPECIALS on INTREGATED CIRCUITS 



7.45 
5.15 
6.45 



6502 

6520 PIA 

6522 VIA 

2716 EPROM 

2532 EPROM 

6116 2KX8 CMOS RAM 

4116 RAM 

4164 RAM 



10/6.95 

10/4.90 

10/6.10 

4.45 

5.90 

6.45 



50/6.55 100/6.15 

50/4.45 100/4.15 

50/5.75 100/5.45 

5/4.20 10/3.95 



5/ 5.75 
5/ 6.20 



10/5.45 
10/5.95 
8 (Of 14 
6.00 




Anchor 
Automation 
Signalman 
Modems 

FREE SOURCE MEMBERSHIP WITH SIGNALMAN 

All Signalman Modems are Direct Connect, and provide the 
best price-performance values. 

Dealer and OEM inquiries invited 
Velksmodem with computer cable (99) 68 

Mark VI for IBM Personal Computer (279) 139 
Mark VII Auto Dial/Auto Answer (1 59) 99 
Mark XII Smart Model 1200/300 (399) 299 



DC HAYES Smartmsdem 

DC Hayes Smartmodem 1200/300 



219 

529 




PROM QUEEN lar VIC 

Apple Emnlater lar Commodore 64 

STAT Statistics Package lar C64 

Selid Oak 2 Leiel Stand lar C64 ar VIC 

C64/VIC Switch (networking) 

BACKUP V1.0 tape csplar ler C64 er VIC 

CARDBOARD/6 Motherboard - VIC 

CARDBOARD/5 Motherboard - C64 

CARD PRINT G Printer Int with Graphics 

CARD PRINT B Printer Interface— C64/VIC 

CARDBOARD/3S Motherboard - VIC 

CARDCO C64/VIC Calculator Keypad 

CARDRAM/16 RAM Expansion - VIC 

Cemplete CARDCO Uae in stock 

CIE and VIE IEEE Interfaces in stock 

MSD SuparDriie Jar C64 ar IEEE 

MAE Assembler for C64 

Koala Teach Taalet-C64er VIC 

CBC 4/1 2 1 2-att A to D Board + Software 

MultJplaa lar C64 

Dust Cover for C64 of VIC 



170 
Call 
95 
29 

129 
20 

64 
56 
72 
40 
22 
32 
44 



365 
50 
79 

199 

79 

6 



APPLE— FRANKLIN ITEMS 

FBAN KLIN— complete Hue In stock 

QUENTIN Dittos ler Apple/Franklin 219 

Swapper Stepper 26 

automatic switch between paddles and joystick 

KBAFT Apple Joystick 40 

Kraft Apple Paddle Pair 30 

Koala Teach Tahlet-Apple/Franklln 90 
SPINNAKEB Sattware ia stack 
Bmernand Sattware In stock 

16K RAM Card for Apple 59 

MnrtJiran— Microsoft 185 

Solid Oak 2 Level Stand (ar Apple 29 

Serial Card for Apple 89 

MCP BAM/80 cewma card lar Ma (AP/TXTJ 139 

Z80 Softcard and CP/M (Microsoft) 235 

RANA Elite I with Controller 389 

Parallel Printer Interface/Cable 69 
Microtek aad MCP Interfaces In stock 

Grappler + Interface 129 
Kraft Products for Apple in stock 

DC Hayes Micromodem II 299 

PFS: Hie 95 

PFS: Report 95 

Videx 80 Column Card 209 

Apple Bite lack 19 



H commodore 

Set is for PtrsenL Business, and Educatiaual 
requlreneoti Educatiooil Discraits available. 

PETSCAN I $245 base price 

Allows you to connect up to 30 CBM/PET Computers to 
shared disk drives and printers. Completely transparent to the 
user. Perfect for schools or multiple word processing con- 
figurations. Base configuration supports 2 computers. Addi- 
tional computer hookups $100 each. 



COMPACK/STCP 



$115 



Intelligent Terminal Packqe far PET. CBM. C64 

Includes ACIA Hardware / SJCP Software 

SCREEN MAKER 80 Cahimn AdapterferC64 145 

Provides big screen capability for business applications 

GENESIS Cemputer Carp 

VICeitreHar |ler C64 as wall) 50 

combine with BSR modules for home or business control 

COMSENSE Remote Sensing Adapter ler C64orVIC 35 

COM VOICE Syathestzar lor C64 or VIC 1 39 

includes software for text to speech pitch eta 

COM CLOCK Heal Time Clock with hsttery aactop 45 



VIC 20 Prefects aad Software la slock 




Tkare EMI Software UMI Seltwere 




ABACUS Software HES Software 




16K RAM for VIC 64 Vanilla Pilot 
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VICTOBY Sattware lar VIC aad C64 

Metamorphosis 16 Creator's Revenge 16 

Labyrinth of Creator 16 Galactic Conquest 16 

Kongo Kong 16 Annihilator 16 

Chomper Man 16 Grave Robbers 13 

Bounty Hunter 16 Adventure Pack I or II 16 

PAPER CUP Word Processor ~~ ~ 99 

ORACLE Data Base frem Batteries Included 109 

Super BasCsrd Irani Batteries Included 1 59 

Commodore 64 Programmers Reference Guide 16 

MtcreChess (or C64— 8 kmls of play 19 

excellent graphics and color 
SPINNAKEB Sattware C64, Apple, IBM. Atari 

Computers First Book of PET/CBM 1 1 

C64 or VIC SWITCH 129 

POWER ROM Utilities for PET/CBM 78 

WordPro 3+/64 wHk Spdlmaster B5 

WordPro 4+ - 8032, disk, printer 295 
SPELLMASTEB spelling, checker lor WordPro 

VISICALC for PET, ATARI, or Apple 1 89 

PET-TBAX PET to Epsea firaphics Sattware 40 

SM-KIT enhanced PET/CBM BBM Utilities 40 

Programmers Toolkit - PET ROM Utilities 35 

EASY CALC for C64 65 

PET Spacemaker II ROM Switch 36 

COPYWBITEB Ward Processor for C64 69 

2 Meter PET to IEEE or IEEE to IEEE Cable 40 

Dust Cover for PET, CBM, 4040, or 8050 8 
CmC Interfaces (ADA1B00. A0A1450. SADI In stock) 

Programmiaa toe PET/CBM ICempetd) — B. West 20 

Computers Machine Language for Beginners 1 1 

MULTIPLAN for C64 79 

HES MODEM wrtth Sattware 65 
HES Software and Hardwire In stock 

UM I products In st ack 

FlexFile for PET/CBM/ C64 $ SO 

Database, Report Writer with calculations, Mailing Lists 
FOBTH far PET/C64luilFIG model — Cargill/Riley $50 

Metacompiler lar FOBTH for independent object code 30 

KMMM PASCAL IV.ffer PET/CBM/C64 95 

E ABL ler PET/CBM Disk-based ASSEMB LER 65 

Sapor Graphics — BASIC Lanasaee Extcaslaas 45 

Fast machine language graphics routines for PET/CBM 



BAM/BOM for PET/CBM 



4K $75 8K $90 



DISK 
SPECIALS 




Scotch (3M) 5" ss/dd 
Scotch (3M) 5" ds/dd 
Scotch (3M) 8" ss/sd 
Scotch (3M) 8" ss/dd 



10/2.20 50/2.00 100/1.95 

10/3.05 50/2.80 100/2.75 

10/2.30 50/2.10 100/2.06 

10/2.85 50/2.70 100/2.65 



We stock VERBATIM DISKS 

Write far Dealer aud OEM prices. 

Sentinal 5" ss/dd 10/1.90 50/1.85 100/1.80 

Sentinal 5" ds/dd 10/2.55 50/2.50 100/2.45 



We stock Dysan disks 



Wabash 5" ss/sd 
Wabash 5" ss/dd 
Wabash 8" ss/sd 



10/1.60 50/1.55 100/1.45 
10/1.90 50/1.85 100/1.75 
10/2.00 50/1.95 100/1.85 



We stock MAXELL DISKS 

Write for dealer and OEM prices. 

Disk Storage Pages 10 for $5 Hub Rings 50 for $6 

Disk Library Cases 8"— 3.00 5"— 2.25 

Head Cleaning Kits 1 2 

AMARAY Disk Storage Systems in stock 

Innovative Concepts FLIP 'N' F^ES^jtock 

CASSETTE TAPES— AGFA PE-61 1 PREMIUM 

C-10 10/ .61 50/ .58 100/ .50 
C-30 107.85 50/ .82 100/70 

DATASHIELO BACKUP POWER SOURCE $265 

Battery back up Uninterruptible Power Supply with surge and 
noise filtering. The answer to your power problems. 



MattlPlaa— IBM or Apple 


185 


Quadboard for IBM available 




KOALA Touch Tablets— Apple, Atari, IBM, CBM 




Paachtext 5000 Sattware Package 


209 


PFS Sattware for IBM and Apple In stock 




VOTRAX Personal Speech System 


280 


BMC 9191 Color Monitor 


229 


BMC 12A 12" Green Monitor 


79 


Brother HB-75 Dotty Wheel Prlaler 


769 


Dyau (Brother) DX-1 5 Daisy Wheel Prteter 


469 


Itoh Prowriter Parallel Printer 


379 


Piaaseoic 1090 Printer with Correspondence Mode 


279 


Daisywriter 2000 with 48K buffer 


1020 


Genial 1 OX 


299 


EPSON. OUdate. Star Mlcmalcs printers lo stock 




USI CompuMOD 4 R F Modulator 


29 


Wo Stock AMDEK Moattars 




AmdekDXY-1 00 Plotter 


590 


A P Products 


5% OFF 


COMPUTER COVERUPS IN STOCK 




BROOKS 6 OitJit Sorgo Soppressor/Nolso Filter 


54 


Surge Suppressor-6 outlet 


29 


Electrohome 1302-2 13" Hi-res RGB Monitor 


335 


Panasonic 1 2" Monitor (20 MHz) with audio 


135 


SyoertekSrM-1 Microcomputer 


189 




ALL BOOK and SOFTWARE PRICES OI SCOU NTEO 

USI Video Motlters— Groan or AMBEB 20 MHz Id-res. 
j^fjed_OJMJej|elile^iHntej 

T gMtTM I data 

I systems 

ZVM-122A 109 ZVM-123G 95 

ZVM-131 300 ZVM-135 510 

HERO 1 Robot (factory assembled) 2 1 45 

Z29 Terminal (DEC and ADM compatible) 680 

ZT-1 Intel Terminal with Serial Port 340 

Z1 00 1 6-bit/8-bit Systems CALL 
We stock entire Zenith lira. 

ATARI - WE STOCK ENTIRE LINE 

SPINNAKER and Broderbund Software in Stock. 



215-822-7727 

252 Bethlehem Pike 
Colmar. PA 18915 



A B Computers 



WRITE FOR CATALOG. 

We pay balance of UPS surface 



Id SI. 50 per order for Un 
lipping charges on all pre 
air] Prices include cas 



Credit Register 



by Joseph Kattan 



Keep track of credit card purchases as they occur to 
avoid overspending, and to be sure your monthly 
bills are corre 



1 



Requirements: 

Any Atari Home Computer 
with minimum 24K RAM 
Disk Drive 



Most of us lose track some times of 
how much money we have spent on 
credit cards. Credit card companies do 
not supply us with registers for keeping 
track of such things and most of us just 
toss the little slips of paper that we 
receive after making a purchase with a 
credit card into some drawer where 
they can be safely forgotten. Sure, we 
have some idea of how much we have 
outstanding on credit cards, but then 
again every once in a while a bill comes 
in with some forgotten purchase, like 
that new half size disk drive. Credit 
Register will do away with all of these 
problems. The program will keep track 
of all of your credit card purchases on 
up to eight separate accounts and 
automatically update balances, billing 
information, and unbilled purchases. 

Credit Register is a disk-based 
program, although it can be easily 
modified to run on a 16K tape system. 
The first menu in the program presents 
you with three choices: Review Files, 
Revise Files, and Create Files. When 
you run the program for the first time, 
choose the "Create Files" option. This 
will write to a data disk a grid of arrays 
matrices in which your data can be 
stored. After that initial use, you can 
create new accounts, revise account 
data, and delete accounts using the 
"Revise Files" option. 

If you only wish to review the 
status of any account, choose the 
"Review Files" menu option. To enter 
data into the program, choose the 
"Revise Files" option. You will find 
this to be the most commonly used 
26 
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on the main menu. When you 

either option, Credit Register 

pf ompt you to enter your data disk 

i:he disk drive. Your may, of 

, store your data on the same 

the program, in which case you 

have to swap disks. Once you 

the proper disk in the drive and 

pressed {RETURN}, the program 

your data files into memory 

display a list of eight accounts. If 

not named any account, it 

Appear on the screen display as 

sed." You will then be asked to 

the number (from 1 to 8) of the 

which you wish to review or 

If you are creating a new 

enter a number of an 

sed' ' account. Let us assume here 

ou have chosen an account for 

data has been previously 

The screen display should look 

1. 

ACCOUNT: VISA 

NEW AMOUNT BILLED: 

BILL TOTAL: 307.57 

01 10/07/83 DISC 

02 10/14/83 AMTR 

03 10/31/83 TOYS 

04 10/31/83 BOOK 

05 10/31/83 COST 

06 11/11/83 PAC 

07 11/11/83 FABR 

08 11/12/83 BOOK 



Figure 



TOTAL: 560.64 



Menu entry 1 allows you to enter 
new purchase information, entry 2 
billing information, and entry 3 
payment information. If you choose 
any of these options, the program will 
lead you step-by-step through the 
proper data entry procedures. It will 
prompt you to enter the date in a 
month/day/year format over a display, 
enter the amount of the purchase or 
bill, and a name for a purchase. When 
you enter billing information, the 
program will ask you to identify the 
purchases that have been billed and 
will place a "B" next to any billed item 
until you have completed entering the 
billing information. When you have 
done so, all billed" items will be deleted 
from the list of unbilled purchases and 
the screen display undated to reflect 
that revision. Menu item 5 should be 
used only to establish or revise an 

0RIG BAL: 0.00 
307.57 

DUE: 11/20/83 

S 45.00 

AK 53.00 
21.89 

S 16.17 

UME 23.73 

MAN 34.78 

IC 42.76 

S 15.74 

UNBILLED: 253.07 



1) 
4) 



PURCHASE 
EDIT ACCT 



2) BILLING 3) 
5) ACCT NAME 



PAYMENT 
6) EXIT 
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account name. Menu item 6 allows you 
to exit the account revision mode. 

Menu item 4, "Edit Acct," allows 
you to correct erroneous data in the 
account's file. When you choose that 
option, you will be presented with a 
new menu: 

1) ORIG BAL 2) LAST BILL 3) EXIT 
4) DELETE PURCHASE 5) DELETE ACCT 

You may modify the original balance, 
the amount of the last bill, delete any 
purchase, or delete the entire account 
by entering the appropriate item 
number on this menu. This part of the 
program is self-explanatory and the 
program will lead you through the 
correct entry procedures step-by-step. 

Credit Register comes with 
restrictions and will inform you if you 
violate any of them. The program will 
not accept more than 12 unbilled 
purchases for any account; it will tell 
you that if you attempt to exceed the 
limit. The program also limits you to 
an eight-character name for any 
account or purchase. Again, if you 
attempt to exceed it, Credit Register 
will remind you of the limit and give 
you another opportunity to enter the 
data. If a bill amount that you entered 
does not match the sum of the 
purchases that you had told the 
program were on the bill, Credit 
Register will give you an opportunity to 
reconcile the discrepancy. If you 
attempt to register a payment when 
there is no bill outstanding, the 
program will inform you of the 
problem. The program will also refuse 
to accept an invalid date. In general, 
Credit Register will not accept 
incorrect entries or will advise you of 
any apparent problems in data that you 
are entering. 

Every account display in the 
program will show all unbilled 
purchases, the original account 
balance, the amount of new items 
reflected on the last bill, the total 
amount of the last bill, the total 
amount outstanding on the account, 
and the total value of unbilled 
purchases. When you are revising 
accounts, the program will revise the 
total in each category and identify 
purchases that have been billed or 
deleted until you complete the data 
entry process, at which time a new 
screen will be drawn without the billed 
or deleted items. 

A note on data entry. At any point 
in the program at which you are 
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allowed to press any key, you may 
return to the main Credit Register 
menu by pressing the {OPTION} key. 
Thus, if you wander into any part of the 
program by mistake, you can always 
leave it by pressing {OPTION}. The 
only drawback to this method of escape 
is that program memory is cleared of all 
data that you might have entered. 

The data entry routine allows this 
method of escape because the INPUT 
statement is never used in Credit 
Register. Instead, the subroutine at 
lines 300-312 accepts individual 
keystrokes, tests them, and accepts 
them only if they are valid. For that 
reason, the cursor control keys | arrow 
keys) are ignored by the program. If 
Credit Register expects numerical data, 
it will ignore all keys except the 
numbers through 9, the period mark 
and, of course, the {OPTION} key. The 
date entry routine beginning at line 240 
similarly tests individual keystrokes 
and accepts only numerical entries and 
the {OPTION} key. Both routines were 
used in my program, The Investor, in 
the February 1984 MICRO and are 
explained in that article. 

The routines at lines 680 through 
760 are used to transfer memory image 
files from disk to RAM and vice versa 
using the Atari's resident disk handler. 
Credit Register uses this technique to 
save and load the data files that you 
create using the program. The 
advantage of this technique over using 
INPUT # and PRINT # statements is 
speed. The program loads the entire 
data file, consisting of over 1000 string 
array elements and a 9 by 14 matrix of 
floating point numbers in about one 
second! The technique is similar to 
those used to save and load special 
fonts and graphic screens. The starting 
address in RAM of the data to be saved 
or loaded and the length of the area of 
memory to be saved or loaded are 
POKEd into the appropriate addresses 
in a special buffer used by the Atari for 
input/output operations, together with 
a read or write command. The memory 
locations and commands are listed in 
Ian Chadwick's Mapping the Atari at 
pp. 83-89. The USR command then 
passes control of the program to the 
resident disk handles, which handles 
the data transfer in a jiffy. 

Because of the use of this special 
method of communicating with the 
disk drive, it is absolutely imperative 
that the DIM statement in line 10 be 
typed in exactly as it appears in the 
program listing. Atari BASIC allocates 
MICRO 



RAM to strings and arrays in the order 
in which it encounters them. Since we 
are POKEing into the I/O buffer an 
address of the area in RAM to be 
affected by the transfer of data to and 
from the disk drive, the BASIC 
interpreter must encounter our strings, 
arrays, and matrix in the order in which 
they appear in line 10. Otherwise, the 
data we wish to transfer will reside in a 
different area of memory than that 
which the disk handler is told to 
transfer. 

The program's main data is stored 
in three strings and a matrix. ACT$ 
keeps track of all account names, 
BILL$ stores billing dates, and DATE$ 
keeps track of the dates and names of 
all purchases. The amounts of 
purchases are stored in the AMT 
matrix. Note that both BILL$ and 
DATE$ concatenate each date to three 
bytes using the CHR$ function. Since 
any month or day has a value of less 
than 255 and thus may be stored in the 
form of a single character string, the 
month and day are converted to a 
character string. The year is converted 
to a character string after subtracting 
1900 from its value. Thus, the year 
1983 is stored as a CHR$[83). 

The program has a few interesting 
bells and whistles that should be 
mentioned. The short subroutine at 
lines 800 through 810 is used for 
decimal justification of numerical data. 
The subroutine changes all numbers 
into a dollars and cents format by 
adding the trailing zeros to integers and 
multiples of 0.1. The program also 
makes use of the LOCATE statement, 
which I have not encountered before in 
a non-graphic use. It uses the statement 
to keep track of accounts that have 
been deleted or billed until all 
modifications are completed and 
thereby prevents a second deletion or 
billing of the same item. It keeps track 
of the status of the item by looking for a 
B or D character next to the dollar 
value of the item. Finally, the routine 
at lines 960 through 970 avoids a 
complex sorting algorithm to get rid of 
billed or deleted purchases by wasting a 
little memory and transferring the 
contents of one array into another array 
and then back into the original array, 
instead of passing values from the array 
into a single variable and vice versa. It 
is just a reminder that we can 
sometimes speed program execution by 
wasting a little memory, something we 
can do with this program. 
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Listing 1 

5 OPEN 
10 DIM 



#5 4 " K i " 

DATE* ( 1056) ,AMT(8,13I 



30 
50 

100 

105 
155 
160 

165 
170 
175 
180 

195 
240 

241 
242 

243 
244 

245 
246 
248 
250 



253 

254 
255 
256 

295 
296 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
320 
325 

330 
332 
333 
335 



BL* (20) , S (8) , DISC* ( 1 ) , SUB* (132) , SUB (12) 
DATE*"" "i DATE* (1056) "DATE* I DATE* (2) "DATE 
ACT*=DATE* (1, 64 >:SUB*=DATE*( 1,144): BILL*" 
FOR 1=1 TO 8:F0R N1=0 TO 13: AMT ( I ,N1 ) =0: N 
GRAPHICS OiPOKE 710,160:P0KE 712, 146: POKE 
POKE 16,64:P0KE 53774,64 

PRINT "{CLEAR}":P0SITI0N 10, 10.-PRINT "<1 

PRINT "<2> 

MX=3:G0SUB 



BILL* (24) , ACT* (64) , Q* ( 13 ) , A* (8) , 
*:BL*«DATE*(1,20): 



DATE* ( 1 ,24) 
EXT Nl :NEXT I 

752,l:ADT=ADR(DATE*)-li 



REVISE FILES":POKE 85, 10: PRIN 
155: GOTO NU1000 



> REVIEW FILES 
T "<3> CREATE 



"iPOKE 85,10: 
FILES" 



POSITION 1 1 ,20: PRINT 



R=PEEK(84> 
NDMX THEN 



'ENTER NUMBER: "; 
A*="NUM":GOSUB 300 
POSITION C.RsGOTO 



160 



THEN PRINT "(UP, DELETE LINE}";: 



EAR 

/--/ ":J = 1: 

E>": IF PEEK (53 
MENU 



A * = " " 

27?) =3 THEN 312: 



THEN POSITION N+J+ ( J >2) + ( J >4 ) ,S : 



I S < J> -Ai J-J + l : IF J<9 THEN 242 

=VAL(A* ( 1 ,2) > : 

D D>29) OR 



C=PEEK(85) 

IF N1<1 OR 

RETURN 

PRINT "CHANGE DATA"; 

PRINT " ({REVERSE Y)ES OR (REVERSE N)0>? 

GOSUB 300: A*»Q* (1,1): IF A*="Y" OR A*»"N" 

RETURN 

POSITION C,R:GOTO 180 

GOSUB 450:N=PEEK(85)-1:S=PEEK(84): 

REM DATE ENTRY ROUTINE-ENTER DAY, MONTH, Y 

TRAP 241 : POSITION N + l ,S:PRINT "(CTRL E}- 

POSITION N + JMJ>2)MJ>4) ,S: PRINT "(CTRL 

REM ON OPTION KEY, CLEAR MEMORY AND GO T 

IF PEEK(764)=255 THEN 242 

GET #5, A: IF A=126 AND J<>1 

PRINT "-":J=J-1:G0T0 242 

IF A<48 OR A>57 THEN 242 

POSITION N + J+(J>2) + (J>4) ,Sj PRINT CHR*(A) 

GET #5, A: IF A=126 THEN J = B:GOTO 242 

IF A0155 THEN 24B 

FOR J=l TO B:A*(J,J)=CHR*(S(J)):NEXT J:M 

D=VAL(A*(3,4)):Y=VAL(A*(5,8) ) 

IF M = OR MM2 OR D = OR D>31 OR (M = 2 AN 

Y < 1 9 OR Y>2155 THEN 256 

POSITION 2,22: PRINT "(DELETE LINE>":POSI 

POKE I-10,M:P0KE I-9,D:P0KE 1-8, Y-1900: R 

POSITION 2, 22: PRINT " (BEEP) (DELETE LINE) 

GOTO 241 

IF NK10 THEN PRINT "0": 

RETURN 

C=PEEK(85):R=PEEK(84> 

TRAP 301 : Q* = " " :PQSITION C,R:PRINT 

POKE 764,255:A=0:P0SITI0N C+Y-l ,R 

IF PEEK (53279>=3 THEN 312 

IF PEEK(764)=255 THEN 303 

GET #5, A: IF A=155 AND (Y>1 OR A*0"NUM") 

IF A=126 THEN Y=Y- (Y>1 ): Q*=Q* ( 1 , Y) : POSIT 

IF A<32 OR A>124 OR (A*»"NUM" AND (A<48 

Q*(Y)=CHR*(A):POSITION C + Y-l, R:PUT #6, A: 

Y«YU:GOTQ 302 

Q* ( 1 , 1 >=CHR* (S) : PRINT " (LEFT , DELETE) ": IF A*="NUM" THEN N1=VAL <Q* > : A*=" 

S=LEN(Q*):RETURN 

POKE 710 , 160: CLR :GOTO 10 

PRINT "ENTER ACCOUNT NAME: "; 

GOSUB 300: IF S>B THEN POKE 84,20: 

PRINT "(BEEP}ACCT NAME CANNOT EXCEED 

IF S<B THEN Q*(S+1,8)=BL*(1,8-S) 

IF A*="RE" THEN A*="":RETURN 

ACT*(ID#8-7,ID#B)=Q*(1,8):PRINT 

PRINT "ENTER STARTING BALANCE: "::A*= 



TION 2 ,S + 1 : IF 

ETURN 

PLEASE REENTER 



Q*="BIL" THEN RETURN 
CORRECT DATE": 



BL*:Y= 
:PRINT 



l:S-32 
"(CTRL E}"i 



THEN 310 
ION C + Y , R : P R I N 
OR A>57) AND A 
IF Y=l THEN S= 



T " ":GOTO 302 
<>46) THEN 302 
A 



8 CHARACTERS":POSITION C,R:GOTO 325 



"NUM": GOSUB 300: AMT ( ID, 0) =N 1 : RETURN 
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IF C0UNT=13 
PRINT "DATE 



THEN PRINT "<BEEP> 
OF TRANSACTION! ": 



SORRY, ACCOUNT FULL":GOSUB 390:RETURN 
GOSUB 240: PRINT "PURCHASE: ":sA*="RE"i 



355 
360 
390 
392 
395 
396 
397 
398 
399 
400 

405 
406 
407 
408 

409 

410 

415 
420 

430 

440 



450 
500 



8) 

SiA*="NUM"s GOSUB 300: AMT ( ID, COUNT) = N1 



GOSUB 325: DATE* ( A I * 1 1-7, AI*11)=Q*<1, 

POSITION 24,PEEK(84)-1:PRINT "AMT: " 

C0UNT=C0UNU1:RETURN 

IF PEEK(B4)<23 THEN PRINT 

POKE 85,8:PRINT "PRESS (REVERSE RETURN) TO CONTINUE"! 

POKE 764,255 

IF PEEK<53279)=3 THEN 312 

IF PEEK<764)=255 THEN 396 

GET #5, A: IF A<>155 THEN 396 

RETURN 

PRINT "{CLEAR}ACCT: 

IF ACT* < I D*8-7 , ID*8) =BL* < 1 ,8) 

POKE 85, 19: PRINT "ORIG BAL: " 

IF AMT < ID, 13) =0 THEN 410 

PRINT "NEW AMOUNT BILLED: " ; : N1 = AMT ( ID, 13) : GOSUB 800:PRINT Q* 

PRINT "BILL TOTAL: " ; : N1=AMT < ID, 0) + AMT < ID, 13) : GOSUB 800sPRINT 

POKE &5,26:PRINT "DUE " ; : N1=ASC ( BILL* ( ID*3-2, ID*3-2 ) ) 



;ACT*(ID*8-7,ID*8) 



THEN POKE 85,8 PRINT "UNUSED"; 
:N1=AMT(ID,0):G0SUB 800:PRINT Q* 



3*i 



GOSUB 
PRINT 



295i 
Nl; 



PRINT Nl;"/"; :N1=ASC(BILL*<ID*3-1,ID*3-1>>:G0SUB 295: 



N1=ASC(BILL*(ID*3,ID*3)):G0SUB 295:PRINT Nl 
AMTN=AMT(ID,0)+AMT(ID,13):PRINT : PL = PEEK (84) -1 : FOR COUNT-1 TO 12: 
GOSUB 450: IF AMT ( ID, COUNT) =0 THEN POP :GOTO 440 

M=PEEKd-10>:D=PEEK(I-9)sY«PEEKd-8>:Nl=C0UNT:G0SU8 295: PR I NT COUNT ;" 
N1=M:G0SUB 295:PRINT M; "/";: N1 = D: GOSUB 295:PRINT D; "/";: N1=Y: GOSUB 295: 
PRINT Y;" "j 

PRINT DATE*(AI*il-7,AI*ll>;" " 5 : N1=AMT ( ID, COUNT ): GOSUB 800: 
POKE 85,35-S: PRINT Q*: AMTN=AMTN+AMT < ID , COUNT >: NEXT COUNT 
PRINT :PRINT "TOTAL: " ; : N 1 =AMTN : GOSUB 800:PRINT Q*j: 
PRINT " UNBILLED: " j : N1»AMTN-AMT ( I D,0) -AMT < ID, 13) :GOSUB 800: 
PRINT Q*:RETURN 

A I = I D* 1 2- 12+C0UNT:I=AI*11+ADT: RETURN 

PRINT "{CLEAR)":POKE 85,12:PRINT "ACCOUNTS IN FILE" : PRINT : PRINT : 
FOR 1 = 1 TO 8:S=(I/2»INT(I/2)):P0KE 85, 2+S*18: N1»I s GOSUB 295 



TO BILL IN DATA 
THEN RETURN 



BASE. UPDATE 



[GOSUB 300:AMT(ID,13)=N1 



300: INT-Nli AHTZ-AHTZ+INTi 



510 PRINT I ; :POKE 85, 8 + S*18: IF ACT* (1*8-7, 1*8) =BL*< 1 ,8) THEN PRINT 

"UNUSED"; :GOTO 530 
520 PRINT ACT* ( 1*8-7, 1*8) ; 
530 IF S THEN PRINT 
540 NEXT IsRETURN 

550 IF CQUNT=1 THEN PRINT, " (BEEP)NOTHING 
BILLING") iGOSUB 175: PRINT : IF A*="N" 

551 IF A*="SKIP" THEN 557 

552 IF AMTdD, 13)00 THEN PRINT "(BEEP) PAYMENT ON LAST BILL NOT ENTERED": 
GOSUB 390.-RETURN 

553 PRINT "NEW PURCHASES BILLED: *" ; : A*="NUM" 1 
IF AMTdD, 0>=0 THEN INT = 0: GOTO 555 

554 PRINT "INTEREST BILLED: *" 5 : A*="NUM" : GOSUB 
AMTUD,13)»AMT(ID,13)+INT 

555 PRINT "BILL PAYMENT DATE: ":: Q*="BIL" : GOSUB 240: 
BILL*(ID*3-2,ID»3-2)=CHR*(M):BILL*(ID*3-1,ID*3-1)=CHR*<D) 

556 BILL*(ID*3,ID*3)=CHR*(Y-1900) 

557 IF C0UNT«1 THEN 575 

558 PRINT "ITEMS BILLED (1 TO ";C0UNT-1;", ";COUNT;" IF NONE): "5 

559 A*="NUM":GOSUB 300 1 IF NKi OR N1>C0UNT THEN POSITION C,R:GOTO 559 

560 IF Nl-COUNT THEN 575 

561 LOCATE 36 ,PL + N1 , AsPRINT " {LEFT) " ; CHR* ( A) : IF A = 66 THEN POSITION C,R:GOTO 559 

562 AMTZ = AMTZ + AMTdD,Nl>:AMT(ID,Nl>»0:POSITION 36, PL+N1 : PRINT "B":POKE 84,R+1 
570 PRINT "MORE ITEMS BILLED" \ s GOSUB 175: IF A*="Y" THEN PRINT 

"(UP, DELETE LINE)";:GOTO 558 
575 GOSUB 950 

580 IF AMTZ=AMT (ID, 13) THEN 610 
585 GOSUB 400:PRINT :PRINT "{BEEP)NEW PURCHASES BILLED: " ; : N1=AMT (ID, 13) -INT: 
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590 

595 
600 

605 
610 
625 
650 

680 
685 

690 
695 

700 

710 
715 

720 

735 
750 

755 
760 
800 

805 
810 
850 

855 
860 
865 
870 
675 
880 

885 

890 
892 
893 
894 
896 
898 



N1=INT: GOSUB 800: 



60SUB BOOiPRINT Q*:PRINT "BUT BILLED ITEMS TOTAL: "; 

N1=AMTZ-INT: GOSUB BOOiPRINT Q*:PRINT "INTEREST BILLED: 

PRINT Q*:PRINT "CHANGE AMOUNT BILLED"; 

GOSUB 175: IF A*="N" THEN 605 

PRINT "NEW PURCHASES BILLED: *"; :A*="NUM" : GOSUB 300: AMT < ID, 13) =N1 : 

AMT(ID,13)=AMT<ID,13>+INT:G0T0 580 

PRINT "START OVER" 5 : GOSUB 175: IF A*="Y" THEN CLR :GOTO 10 

RETURN 

POP :RETURN 

PRINT "ENTER AMOUNT PAID: "j:A*="NUM" : GOSUB 300: 

AMT<ID,0)=AMT<ID,0)-N1 + AMT<ID,13>:AMTUD,13>«0:RETURN 

IF DISC*="Y" THEN RETURN 

TRAP 695:G0SUB 700:0PEN #1 , 4,0, "D: CREDIT. DAT" :GOSUB 750: 

POKE 850,7:P0KE 858 , 4: A*USR ( ADR <Q*> ) 

CLOSE #1:DISC*="Y":RETURN 

PRINT "CBEEP}":POKE 712,64:F0R DELAYM TO 100:NEXT DELAYsPOKE 712,146: 

CLOSE # 1 : GOTO 680 

POKE 764,255:PRINT " {CLEAR}" : POKE 84,11: 

PRINT " INSERT DATA DISC AND PRESS {REVERSE RETURN) ": GOSUB 395:RETURN 

PRINT :PRINT "WRITE CHANGES TO DISC"; 

GOSUB 175: IF A*="N" THEN RETURN 

GOSUB 700:TRAP 760iOPEN #1 ,8 ,0, "Di CREDIT. DAT" 1 GOSUB 750: 

POKE 850, UiPDKE 858, Bi A=USR ( ADR (0$) ) 



CLOSE #1 : DISC* 
Q*="h{REVERSE 
N1=ADR(DATE*)-256*S:MX 
POKE 852,N1:P0KE 853, S 



"Y":PRINT "{CLEAR} 
,CTRL P}LV{REVERSE 



JRETURN 

d}":S=INT(ADR<DATE*>/256>: 
( ADR (0*) -ADR ( DATE*) > 1 R-INT (MX/256) :C=MX-R*256 
POKE B56,C:P0KE 857,R:RETURN 



GOTO 
: " " 



810 



EXIT4) DELETE PUR 



PRINT "{UP, DELETE LINE) PROBLEMS WITH DISC DRIVE"sGOSUB 390:G0T0 720 

Nl= INT (Nl* 100+0. 5) 7100: Q*=STR*<N1>: 

IF Nl-INT(Nl) THEN Q* (LEN <Q*> M > =" . 00" 

IF N1M0 = INT(N1M0> THEN Q* (LEN (Q$) +1 ) 

S=LEN(Q*):RETURN 

PRINT "1) ORIG BALANCE 2) LAST BILL 3) 

CHASE 5) DELETE ACCT" 

MX=5:G0SUB 160:PRINT "{UP, DELETE LINE} ":0N Nl GOSUB 870,875,625,885,925 

PRINT "MORE EDITING"! iSOSUB 175: IF A*="Y" THEN GOSUB 400: PRINT iSOTO 850 

RETURN 

GOSUB 335: RETURN 

PRINT "NEW PURCHASES ON BILL :*"?: A*="NUM" : GOSUB 300: AMT < ID, 13) =N1 

PRINT "INTEREST ON BILL: *" ; : A* = '"NUM" ! GOSUB 300: 

AMT(TD,13)=AMT(ID,13)+Nli RETURN 

IF COUNT-1 THEN PRINT "(BEEP)NO PURCHASES TO DELETE IN DATA BASE": 

GOSUB 390: PRINT "{UP, DELETE LINE , UP , DELETE LINE} " : SOTO 860 

PRINT "NO. OF ITEM (1 TO H 5 COUNT-1 ; " , " j COUNT j " IF NONE): "| 

A*="NUM":GOSUB 300: IF NK1 OR NDCOUNT THEN POSITION C,R:G0TO 892 

IF Nl-COUNT THEN 900 

LOCATE 36 ,PL + N1 , A: PRINT " CLEFT} " ;CHR* < A) : IF A=68 THEN POSITION C,R: GOTO 892 

AMTZ=AMTZ-AMT(ID,N1):AMT(ID,N1)«0:POSITION 36 ,PL + N1 1 PRINT "D":POKE 84,R+1 

PRINT "MORE ITEMS TO DELETE ";:GOSUB 175: 

{UP, DELETE LINE} "5 :GOTO 890 



SUB*(132)*SUB*iSUB*(2>=SUB*: 



IF A*="Y" THEN PRINT 
900 GOSUB 950: RETURN 
925 ACT*(ID*8-7,ID*8)=BL*(l,8)tSUB*« 

DATE* (1 0*132- 13 1,1 DM 32) "SUB* 
930 FOR J=0 TO 13: AMT (ID, J ) =0: NEXT J:RETURN 

950 FOR J=l TO 12:SUB(J)=0:NEXT J:SUB*=" " : SUB* < 132) =SUB*: SUB* (2) =SUB* 
960 J-iiFOR COUNT-1 TO 12:G0SUB 450s IF AMT ( ID, COUNT) =0 THEN 970 
965 SUB(J)=AMT(ID,C0UNT):SUB*(J*11-10,J*11)=DATE*(AI*11-10,AI*11):J=J+1 
970 NEXT COUNTiFOR C0UNT=1 TO 12: AMT ( ID, COUNT) =SUB (COUNT) s NEXT COUNT: 

DATE* < I DM 32- 1 3 1,1 DM 32 )=SUB*: RETURN 
1000 GOSUB 680 

1010 GOSUB 500:P0KE 84, IB: PRINT "NO. OF ACCT TO REVIEW (9 TO EXIT) "; :MX = 9: 
GOSUB 155: ID=N1 : IF Nl-9 THEN CLR :GOTO 10 
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1020 


GOSUB 400! 


2000 


GQSUB 680 


2010 


GOSUB 500: 




GOSUB 155! 


2020 


GQSUB 400: 




PRINT "4) 


2030 


PRINT :PRI 




UP, DELETE 




AMTZ=0:CHO 


2035 


IF CHOICE* 


2040 


PRINT "(UP 




GOSUB 175! 


2050 


GOSUB 400: 


2060 


GOTO 100 


3000 


POKE 710,9 




WILL ERASE 


3010 


PRINT :PRI 


3020 


GOSUB 720: 



GOSUB 390:G0T0 100 

POKE 84 , 18: PRINT "NUMBER QF ACCT TO CHANGE (9 TO EX IT) " : MX = 9: 

ID-N1 : IF Nl"9 THEN 50 

PRINT : PRINT "1> PURCHASE 2) BILLING 3) PAYMENT"! 

EDIT ACCT 5) ACCT NAME 6) EXIT" 

NT "ENTER NUMBER! " ; : MX=6: SOSUB 160:PRINT "CUP, DELETE LINE, 

LINE, UP, DELETE LINE , UP , DELETE LINE ,UP , DELETE LINE)": 

ICE=NliON Nl GQSUB 350,550,650,850,320,610 

6 THEN 2050 

, DELETE LINE, UP, DELETE LINE}":PRINT "MORE CHANGES ON ACCT";! 

IF A*="Y" THEN 2020 

GOSUB 710! IF A*="N" THEN GOSUB 390 

6: PRINT "{CLEAR}":POKE 84, lOsPRINT "CAUTION: WRITING TO DISC 

EXISTING DATA FILES ON THE DISC." 
NT " WRITE TO DISC"| 16OSUB 175:P0KE 710, 160; IF A$="N" THEN 100 
GOTO 100 



Ed. Note: Microbes from the listings of Mr. Kattan's 
previous article, "The Investor" (Micro 69:19), appear 
on page 73. 



Joseph Kattan is a lawyer in Washington. 
He may be written to at 
5721 Chevy Chase Pkwy.N.W. 
Washington, DC 20015 




DataBase Managfit||pfw;W''^|^HH^ 
TOTL JNFOM ASTER 3.6— dnVisO on disk 



Money-Saving Bonus 
Paks of 64 Software 

(BP-1)— (disk) 
totl.text/ 

totl.speller/totl. label 
reg. price $103 NOW $79 

(BP-2)— (disk) 
totl. business/ 
totl time manager/ 
totl . i nf omaster/totl . text 
reg. price $228 NOW $159 

(BP-3)— (disk) 
totl.infomaster/ 
totl. text/totl. speller 
reg. price $129 NOW $99 

(BP-4)— (disk) 
totl.text/ 
totl. speller/ 
research assistant 
reg. price $118 NOW $89 

(BP-5)— (tape) 
totl. text/totl. label 
reg. price $60 NOW $49 

Commodore 64 and VIC 20 are trademarks ol 
Commodore Business Machines Inc. 



INFORMATION AND ORDER COUPON 



TOTL.TEXT 2.0 (VIC + 8K) 
TOTLTEXT 2.5 (VIC + 16K) 
TOTL.LA8EL2.1 (VIC + 16K) 
TOTL TIME MGR. 2J (VIC + 8K) 
RESEARCH ASST. 2.0 (VIC + 8K) 
TOTL.BUSINESS 3.0 (VIC + 24K) 
TOTL.TEXT 2.6 (C-64) 
TOTLSPELLER3.6(-C64) 
TOTL.LABEL 2.6 (C-64) 
TOTL TIME MGR. 2.6 (C-64) 
R ESEARCH ASST. 2 .0 (C-64) 
TOTL.INFOMASTER 3.6 (C-64) 
TOTL.BUSINESS a6 (C-64) 
BONUS PAK # 



TAPE 

□ 24.95 

□ 34.95 
D 19.95 

□ 29.95 

□ 29.95 

□ 39.95 

□ 19.95 

□ 34.95 

□ 34.95 




Check, Money Order or 
C.O.D.* also accepted. 
•COD. orders $2.00 
additional (CA residents 
add 6Va% sales tax) 



Total . 

COD. Charges/Sales Tax . 

Shipping & Handling . 

Amount Enclosed . 



DISK 
D 28.95 

□ 38.95 
D 23.95 
D 33.95 

□ 33.95 
84.95 
43.95 
34.95 
23.95 
38.95 

D 38.95 

□ 49.95 
D 94.95 



$3.00 



FOR ORDERING ONLY— CALLOURTOLL FREE NUMBERS 
Continental U.S. 1-800-351-1555, California 1-800-351-1551 
Hawaii and Alaska 415-943-7877 
D SEND MORE INFORMATION (no charge for catalog) 

Name 

Street 

City 

Phone ( ) 

Card # 



State . 



Zip. 



_ Dmc 

Exp. 
Date 



□ visa 



TUTL 

SOFTWARE, INC. 



Quality you can afford 
1555 Third Avenue 
Walnut Creek, CA 94596 
415/943-7877 



Other VIC 20™ 
and Commodore 64™ software 
available from your dealer or 
directly from TOTL Software: 

Word Processing (totl.text) 
Spelling Checker (totl. speller) 
Mailing List & Label (totl. label) 
Business Accounting (totl. business) 
Time Management 

(totl time manager) 
Keyword Cross Reference 

(research assistant) 

TOTL Offers You... 

low prices and high quality • 30 day 
money-back guarantee on direct 
purchases • an interactive family of 
software • product registration • 
customer support • free informative 
newsletter • regular upgrades at 
reduced cost • availability in many 
stores • 800 numbers for ordering 
convenience • prompt shipment of 
direct orders • savings coupons with 
each order • money-saving bonus 
paks • two years and 45,000 
products strong 
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/AlCftO 

CoCo Bits 



by John Steiner 




OS-9 

OS-9 is becoming more and more 
popular among CoCo hackers. I have 
gotten a few letters from readers about 
their experiences with OS-9. Gene 
Driskell of Xenia, OH called and wrote 
about a problem with OS-9 and the 
external terminal mode. It seems the 
CoCo would occasionally garble a 
letter being sent from the terminal to 
the CoCo. I wasn't much help with the 
problem as I had not run into it, and no 
one else I talked with had either. A few 
days later, Gene sent me another letter. 
As it turns out, OS-9 will only support 
terminal I/O at 300 baud. Mr. Driskell 
had been using the default terminal 
baud rate of 600. At 600 baud, Gene 
said that only about 13% of the 
characters were incorrectly sent. 

It would be nice to operate the 
terminal at a higher baud rate; if you 
have a patch, or know of a way around 
this problem, pass the information 
along and I will relay it here. I will have 
some comments on BASIC-09 in a few 
moments. 

CoCo 2 Memory Expansion 

Santa has brought a lot of Color 
Computer 2's into people's homes, and 
the small powerhouse has introduced 
many to the joys of computing. With 
16K the stock memory, many people 
are opting to raise the memory 
requirements to 64K. The process is 
easy. 

There are 2118s in the CoCo 2, 
rather than 4116s as in the earlier 
CoCos. To upgrade to 64K, all it takes 
is replacement of the chips and 
soldering a single jumper The jumper is 
located near the 6822 and 74LS244 
chips. A lettering on the PC board reads 
Wl . Immediately adjacent to the label, 
Wl and toward the rear of the board 
from the label are two solder pads. 
These two pads should be jumpered 
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together. Thanks to Gene for providing 
the upgrade instructions. 

By the way, the piggyback 32K 
upgrade used before the 64K machines 
were introduced is still possible. The 
2118s require only a +5 volt line, 
rather than the + 5, -5 and + 12 volts 
required of the 4116s. As a result, you 
cannot piggyback 4116s with the 
2118s. 

Software Speech Synthesizer 

Classical Computing, Inc. of 
Chapel Hill, NC sent me a copy of 
SPEAK UP, a machine language voice 
synthesizer for the CoCo. The 
program, written by David Dubowski, 
is an excellent example of software 
voice synthesis. I have had a lot of fun 
with its ability to speak any standard 
BASIC string. It also has the ability to 
read the screen and speak any phrase 
printed there. The computer will speak 
the words until it finds a period, 
question mark or exclamation point. 
The price you pay for making your 
programs talk is memory. The program 
requires just over 7K of RAM. 
Phonomes are used to generate the 
parts of speech, so you have to misspell 
some words in order to make them 
sound right as the computer speaks 
them. For example, CHAMPAGNE 
sounds best when spelled 
SHAMPAYN. At only $29.95, its quite 
a bargain. 

More CoCo Rumors 

I have been hearing from the grape 
vine about a new CoCo to be released 
shortly. Talk is of a 256K CoCo. This 
word comes just after the release of the 
Tandy 2000, an IBM compatible 
computer with sophisticated color 
capacity. My first thought was that the 
2000, since it is 256K, was what they 
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were referring to. Even now that the 
2000 has been released, the rumors 
persist. Tandy kept the 2000 a big 
secret until just before its release, so 
any new CoCos will probably be just as 
big a secret. We shall see. 

BASIC-09 

With the arrival of OS-9, a new 
world of BASIC programming is at the 
CoCo keyboard. BASIC-09 is one of the 
most powerful versions of BASIC I have 
seen. I have had access to many 
versions recently, as I have just 
finished a manuscript for Prentice-Hall 
that will be released sometime this 
year. The book is a BASIC cross- 
referencing dictionary. In my research, 
one BASIC caught my eye as being 
especially powerful, BASIC-09. At the 
time, I hadn't really expected it to be 
released for CoCo. Microware provided 
me a BASIC manual for use with my 
research. My CoCo version is still on 
order as I write this, but I am assuming 
there will be little difference between 
Radio Shack's version and the standard 
Microware release. 

Probably the most unique feature of 
BASIC-09 is its Pascal-like procedures. 
Line numbers are optional within 
procedures, and several procedures may 
reside in memory at any given time. It 
is possible to load and save multiple 
procedures in one step, and any 
procedure currently in memory may be 
used by either the operator of the main 
keyboard, or by any terminal user. 
Procedures may be called from within 
other procedures, and each may be 
tested and debugged individually, if 
desired. 

Those familiar with Color BASIC, 
or any BASIC for that matter, recognize 
the FOR-NEXT loop. BASIC-09 uses 
several loop structures in addition to 
FOR-NEXT. Here are a few examples. 
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Products for Commodore, Atari, Apple, and others! 



# 



THE MONKEY WRENCH II 

A PROGRAMMERS AID FOR ATARI 800 

NEW AND IMPROVED - 18 COMMANDS 

PLUGS INTO RIGHT CARTRIDGE SLOT 




$59.95 



If you are a person who likes to monkey around with 
the ATARI 800, then THE MONKEY WRENCH II is 
for you!! Make your programming tasks easier, less 
time-consuming and more fun. Why spend extra 
hours working on a BASIC program when the 
MONKEY WRENCH can do it for you in seconds. 
It can also make backup copies of boot type 
cassette programs. Plugs into the right slot and 
works with ATARI BASIC cartridge. 
The MONKEY WRENCH provides 18 direct mode 
commands. They are: AUTO LINE NUMBERING - Pro- 
vides new line numbers when entering BASIC program 
lines. RENUMBER - Renumbers BASIC'S line numbers 
including internal references. OELETE LINE NUMBERS 
— Removes a range BASIC line numbers. 
VARIABLES - Display all BASIC variables and their current value. Scrolling - Use the 
START & SELECT keys to display BASIC lines automatically. Scroll up or down BASIC pro- 
gram. FIND STRING - Find every occurrence of a string, XCHANGE STRING - Find every 
occurrence of a string and replace it with another string. MOVE LINES — Move lines from 
one part of program to another part of program. COPY LINES — Copy lines from one part 
of program to another part of program. FORMATTED LIST - Print BASIC program in 
special line format and automatic page numbering. DISK DIRECTORY — Display Disk 
Directory. CHANGE MARGINS - Provides the capability to easily change the screen 
margins. MEMORY TEST - Provides the capability to test RAM memory. CURSOR 
EXCHANGE — Allows usage of the cursor keys without holding down the CTRL key. 
UPPER CASE LOCK - Keeps the computer in the upper case character set. HEX CON- 
VERSION -Convertsa hexadecimal number to a decimal number. OECIMAL CONVER- 
SION - Converts a decimal number to a hexadecimal number MONITOR — Enter the 
machine language monitor. 

In addition to the BASIC commands, the Monkey Wrench also contains a machine 
language monitor with 16 commands used to interact with the powerful features of the 
6502 microprocessor 
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VIC RABBIT CARTRIDGE 
AND CBM 64 RABBIT CARTRIDGE 



"High-Speed 
Cassette 
Load and Save!' 




l $39.95 
(includes Cartridge 
and Manual) 



Expansion Connector 
on the VIC Cartridge 



' 'Don't waste your Life away waiting to LOAD and SAVE 
programs on Cassete Deck." 

Load or Save 8K in approximately 30 seconds! Try 
it — your Un-Rabbitized VIC takes almost 3 minutes. 
It's not only Fast but VERY RELIABLE. 
Almost as fast as VIC Disk Drive! Don't be foolish — 
Why buy the disk when you can get the VIC Rabbit 
for much, much less! 

Easy to install — it just plugs in. 

Expansion Connector on rear. 

Works with or without Expansion Memory. 

Works with VIC Cassette Deck. 

12 Commands provide other neat features. 

Also Available for 2001 , 4001 , and 8032 



TELSTAR 64 



Sophisticated Terminal Communications Cartridge (or the 64. 

"PFO* 100 000 CP<01>02 BELL 12:30:00 10:14:36 
(TELSTAR's Status Line) 

Don't settle for less than the bestl 

• Upload/Download to/from disk or tape. 

• Automatic File Translation. 

• Communicates in Industry Standard ASCII. 

• Real-Time Clock plus Alarm Clock. 

• Line editing capability allows correcting and resending long 
command lines. 

• 9 Quick Read (unctions. 

• Menu-driven. 

• Similar to our famous STCP Terminal package. 

• Works with Commodore Modems and supports auto-dialing. 

The best featu re is the price — only $49.95 (Cartridge and Manual) 



ATARI, PET, AND CBM 64 
EPRQM PROGRAMMER 



Programs 2716 and 2532 
EPROMs. Includes hardware 
and software. PET = $75.00 
- ATARI and CBM 64 (both 
include sophisticated machine 
language monitor) = $119.95 
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Machine Language Monitor 
Cartridge 

for the CBM 64 

More than 20 commands allow you to access 
the CBM 64's Microprocessors Registers 
and Memory Contents. Commands include 
assemble, disassemble, registers, memory, 
transfer, compare, plus many more. 

Someday every CBM 64 owner will need a 
monitor such as this. 

Cartridge and Manual — $24.95 



CBM 64 Debugger 

A more sophisticated Machine Language Monitor/Debugger. 20K 
of object code makes this a powerful tool. Works as a symbolic 
debugger for the MAE assembler. Diskette and Manual - $49.95 
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TRAP 65 

TRAP 65 is a hardware device that 

plugs into your 6502's socket Prevents 

execution of unimplemented opcodes 

and provides capability to extend the 

machines' instruction set. 

ForPET/APPLE/SYM. 

Reduced from $149 95 to $69 95 



More than just an Assembler/Editor! 
Now for the "64' 



It's a 

Professionally 

Designed 

Software 

Development 

System 



MAE 




NOW, The Best for Less! 

■ Designed to improve Programmer Productivity 

• Similar syntax and commands — No need to rdearn 
peculiar syntaxes and commands when you go 
from PET to APPLE to ATARI. 

• Coresident Assembler/Editor — No need to load 
the Editor then the Assembler then ihe Editor, etc 

• Also includes Word Processor, Relocating Loader 
and much more 

• Join the /TUG User Group tor MAE lormatted 
disks 

• STILL NOT CONVINCED? Send for free spec sheet! 



5% INCH SOFT 
SECTORED DISKETTES 

Highest quality. We use them on 
our PETs, APPLEs, ATARIs, and other 
computers. $22.50/10 or $44.50/20 




Prownter Printer - Excellent dot mainx print Parallel = $489 00 
Serial = $600 00 IEEE » J589 00 



OC Hayes Smart Modem = J235 00 
DC Hayes Micro Modem II = J289 00 



n 



Rana Disk Drive - 375 
Orive Controller - 114 



EPROMS 2716 = $4.50 2532 = $750 

Over 40 Commodore Programs by Baker (on 4040) = $25.00 



3239 Linda Dr 

Wmston-Salem.N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 



( MoiterCaixl 



No. 70 - March 1984 



MICRO 



33 



WHILE-DO tests the condition before WHILE X<Y DO 

starting the loop, while FOR-NEXT PRINT "X IS LESS THAN Y' 

loops must execute all statements Y S ■ Y - 1 

within the loop at least once . E N D W H I L E 



REPEAT-UNTIL, like FOR-NEXT, 
tests at the bottom of the loop. 



REPEAT 

INPUT A* 

PRINT "INCORRECT RESPONSE, SHOW A LITTLE RESPECT!" 
UNTIL A*="YES SIR" 
PRINT "THAT'S BETTER" 



LOOP ENDLOOP structure can be INPUT A, B 

used to put a test at any place within LOOP 

the loop. PRINT A 

EXIT IF A>10 THEN 

PRINT "A REACHED 10 FIRST." 

ENDEXIT 
A ;= A+l 

EX I T IF YMO THEN PRINT "Y REACHED 10 FIRST" 

ENDEXIT 
Y := Y+l 

ENDLOOP 

As I get more familiar with 
BASIC-09, I hope to be bringing more 
examples of its power, and versatility. 
It is structured to interface with OS-9, 
and operates within the path structure 
that makes OS-9 as powerful as it is. 
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Dealer 

Inquiries 

Invited 



COMPLETE PRODUCT LINES FOR 
D.C. Hayes • HDE • Microsoft • Nashua • Okidata 

APPLE • FRANKLIN • IBM-PC/XT 

We carry many products at competitive prices to expand these fine computers. 
Request Catalog No. AFP* 

HDE • AIM • SYM • KIM 

HDE hardware and software for ASK, DLC, OMNI-65 systems 

KIM replacement modules (1K — 4K) and keyboards 

AIM-65 (1K — 4K) and accessories. Request Catalog No. TASK* 



Professional Workmanship 
Guaranteed Repairs 
Quick Turn-around 



COMPUTER REPAIR SERVICE 

Apple 



PET 



AIM 



Franklin 
• HDE 
SYM • 



Atari 
KIM 



Perry Peripherals 



"Catalogs 

AFP $2.00 TASK $1.50 
Catalog price refunded 
with first order 



Repair Center 

6 Brookhaven Drive 

Rocky Point, NY 11778 



Orders 
P.O. Box 924 (51 6) 744-6462 

Miller Place NY 1 1764 9AM— 5PM Weekdays 



DOSPLUS for 
Commodore 64 



Part 3 



In the second article in this series 
(MICRO No. 69), a transient program 
loader was described. This program 
will move machine language programs 
from hidden RAM (located at the same 
address, or underneath the BASIC 
ROM) to an area of memory in which 
they can execute ($C000-$C7FF). In 
this installment, two such programs 
are provided: a monitor program and a 
program that will allow you to format 
your (non-Commodore) printer to set 
up character size, top, bottom, left, and 
right margins, etc. Since we'll need the 
monitor program to save our other 
programs, it will be described first. 

Add a Machine Language Monitor 

A machine language monitor is helpful 
to move blocks of memory, 
disassemble ML code, and save ML 
programs to disk. A very good monitor, 
probably the most widely used for the 
Commodore 64, is Jim Butterfield's 
Supermon64.Vl which can be found on 
Commodore's Disk Bonus Pack and 
several public domain disks from the 
Toronto Pet Users Group. It is a little 
larger than 2 kilobytes but can be 
shrunk (to 2K) and relocated to $C000 
to be used with DOSPLUS. However, 
when you think about it, $CO0O is the 
worst place to put the monitor 
program. You will probably be working 
on ML programs assembled to run at 
$C000, so the monitor should be placed 
elsewhere. As normally configured, 
Supermon cuts the BASIC user RAM by 
about 2K, so this is sometimes 
undesirable. 

One place you can put the monitor 
without taking any user RAM is in the 
hidden RAM underneath the BASIC 
ROM. In fact, you can run it from 
underneath the ROM and even use 
Kernal ROM subroutines 

|$E000-$FFFF). However, getting the 
monitor into this area of memory, 
establishing the hooks to DOSPLUS 
and a clean exit to BASIC, and then 
saving the program to disk is a little 
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A machine language 
monitor, a printer 
formatting program, a 
repeat key toggle, and a kill 
(quit DOSPLUS) function for 
the recently published 
DOSPLUS utility program. 



tricky, so reread the next sections 
before jumping in. 

Supermon can relocate itself to the 
top of usable memory; in fact it does 
this everytime you load and run it. But 
now you want to relocate it to the top 
of (hidden) RAM, not user RAM. First, 
load and run Supermon as usual. You 
will see on the screen a B* and a 
register display. Now type in these 
three lines: 

,:0001 36 
.:0037 00C0 
.G 0880 

Now you will see another B* and 
register display, but this time you are 
running the new version of the monitor 
located in RAM under the BASIC ROM. 
What goes here? 

The first line above switches out 
the BASIC ROM by placing $36 into 
location $0001, the 6510 CPU's 
memory management register. The 
second line places $C000 into the top 
of memory pointers located at $0037, 
$0038. So instead of your user memory 
ending at $A000, it now ends at $C000. 
Next a jump to $0880-this causes the 
entire monitor program to be relocated. 
You can find the beginning of the new 
version to be $B7ED, the end to be 
$BFFF. 



Now, while you are still in the 
monitor program, assemble the code 
shown in Listing 1, starting at $C0O0. 
This is a boot program that will allow 
you to jump to the monitor and exit 
cleanly to BASIC. The program 
switches out BASIC ROM (as we just 
did], moves part of itself to $02A7 (an 
unused portion of memory), sets up the 
exit vector, and then jumps to the 
monitor ($B7ED). The exit routine sets 
the character color to black, switches 
the BASIC ROM back in, adjusts the 
stack, then does a jump to the warm 
start. 

This routine now must also be moved 
to hidden RAM and new table pointers 
established. Type in four more lines: 

.T C000 C030 B700 

.:A013 01 

.A033 B7 

.S " S.ML",08,A000,C000 

This transfers the small program to 
$B700 and sets up the tables for a 
program of 1 block length, starting at 
$B700, to be moved to $C000 by the 
transient relocator when a RESTORE, S 
sequence of keys is used. 
To use the monitor with DOSPLUS, 
the DOSPLUS boot program must be 
updated to include S as an active key by 
adding the following line: 
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3065 POKE 52179,89: POKE 
52211,207 

Also add the following line to load the 
monitor program: 

1005 IF Al THEN A2: LOAD " 
S.ML",8,1 

Once the monitor is loaded and 
running, the area of memory from 
$C000 to $C7FF is free for your use. 

Format Your Printer 

The first article in this series gave a 
machine language routine to dump the 
screen to a printer configured as device 
#4. Another routine was provided to 
turn on or off the printer so all output 
could also be directed to the printer. 
These programs work with 
Commodore's 1525 printer or any 
other printer that can emulate the 
Commodore printer through an 
intelligent interface. 

Many owners of Commodore 64 's 
have opted to buy printers made by 
other manufacturers, such as Epson, 
OKI, Gemini, C. Itoh, or NEC. These 
printers are not only more expensive 
than Commodore's 1525, but require 
an interface costing from $50 to $120 
which plugs between the computer and 
the printer. The main purpose of the 
interface is to emulate the 1525 printer, 
i. e. translate certain character codes 
sent out on the Commodore 64 serial 
bus to the correct ASCII characters and 
control codes in the parallel format 
recognizable by the printer. 

Why would so many sane 
individuals go to such trouble and extra 
expense to hook up a non-Commodore 
printer through an interface when the 
result is a printer that emulates the less 
expensive Commodore 1525? The 
answer is that the other 
printer/ interface combinations provide 
a number of features not available on 
the 1525. These include faster printing, 
better quality print, several thousand 
character buffers, the ability to print on 
labels, and quite a few special 
formatting commands that are printer- 
specific and/or interface-specific. But 
how many of these special formatting 
commands are routinely used? 
Probably none, because to do so 
requires searching through manuals 
and using special OPEN and PRINT# 
commands. 

To make these functions easy to 
use, a printer formatting program is 
shown in the assembler Listing 2. It can 
be used as is for an NEC 8023 (or 
similar printers such as C. Itoh 8510, 
Prowriter, etc.) and a Tymac 
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Connection printer interface connected 
to the Commodore 64. This program 
will require modifications for other 
combinations of printers /interfaces. 
The machine language program is 
designed to be used with DOSPLUS 
code published in previous articles,- it 
uses a number of DOSPLUS routines. 

Entry to the program first saves the 
current screen, then sets the default set 
up parameters. You are then instructed 
to enter one of the following letters: 
D for Default set-up 
C to Change the set-up (to other 
than default] 

N for No set-up 
Any other response is ignored. The 
default set-up is 12 characters /inch, a 
left margin of 10 characters, right 
margin of 6 characters (this gives 80 
characters /line with margins), form 
set-up with skip-over-perf, and non- 
enhanced print. 

If the default set-up is chosen, the 
following optional input routines are 
skipped. A choice of C will allow a 
variety of format set-ups. First is 
character widths: 

Enter Char/Inch Char/Line 

1 17 132 

2 12 96 

3 Proportional 96 

4 10 80 

5 8.5 66 
<b 6 48 
7 Proportional 48 
O 5 40 

(Proportional Char/Line is 
approximate) 

The next two options are desired 
number of characters for the left and 
right margins. These two numbers are 
subtracted from the number of 
characters for the full line to get the 
actual number of characters that can be 
printed on a line. This is printed out to 
the screen and you are asked if this is 
OK. If not, you can then go through the 
procedure again. If you made a mistake 
and get a zero or negative line width, an 
error message is printed and you then 
have to re-enter the data. 

The next option is the fold mode 
available with the Connection 
interface. This mode keeps the printer 
from printing part of a word on one line 
and the rest of the word on the next. 
This mode makes BASIC listings more 
readable. The form length option is 
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next. It sets up the height of the sheet 
of paper to 66 lines so that a form-feed 
will get you to the same place on each 
page. Next is the skip-over-perf option, 
which allows top and bottom margins 
to be automatically set up for each page 
printed. Once set, all pages are 
formatted in the same manner unless 
the printer is reset. The last option is 
the enhanced mode, in which 
everything is printed with double- 
striking. 

Aftej all the desired parameters 
have been chosen, the printer port 
(device #4) must be opened, the desired 
data output, then the port closed. 
Actually, this sequence is done three 
times as described below. First, the 
port is opened with a secondary address 
of zero. Codes equivalent to the 
following are then sent to the interface 
(they never get to the printer): 

CHR$(27)"W"CHR$(0) 
This de-activates the Width function of 
the interface (which normally defaults 
to 80). This step is required to 
eliminate an undesired carriage return 
being sent to the printer later on. 

Next the printer port is opened with 
a secondary address of 6. This is the 
Connection's transparent mode so all 
data will be sent directly (unchanged) 
to the printer. A three byte sequence is 
output to set up character size. Two 
more bytes select either normal or 
enhanced mode. If desired, a 136 byte 
sequence is output to set up the form 
length in the printer (with or without 
skip-over-perf). 

Now the printer port is opened with 
a secondary address of zero again. Then 
the equivalent of the following is sent 
to the interface: 

CHR$(27)"F"CHR$(x) 

CHR$(27)'T'CHR$(y) 

CHR$(27)"W"CHR$(z) 
where xO for fold off, xl for fold on, 
ynumber of characters for the left 
margin, and zthe sum of y and the 
actual line width. Finally a carriage 
return is sent to activate the margins. 
The printer port is left either open or 
closed as desired and then the old 
screen is restored. 

The printer formatting program is 
assembled to run at $C000. It resides 
under the BASIC ROM, however, and 
is transferred to upper memory as 
described in the last article in this 
series. Saving the program to disk is a 
little tricky, so proceed as follows. 

With DOSPLUS (including the 
monitor) in memory, place the printer 
utility program into the RAM area of 
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$C000-$C4FF. Use either an 


Listing 1 




assembler/loader or a BASIC loader 






that POKEs DATA into memory. Then 
move the program into hidden RAM. 
This is done easily in BASIC 
immediate mode: 




KERYAN DOSPLUS 3 MARCH 1984 
SUPERMON BOOT -- TO RUN A VERSION 
OF SUPERMON FROM UNDER THE BASIC 
ROMS -- THIS PR06RAM RESIDES AT 

IB700 BUT IS TRANSFERRED TO AND 


FOR I TO 1279: A 




RUNS AT $C000 WITH DOSPLUS 


PEEK(I49152): POKE (141216): NEXT I 






POKE 40966,5: POKE 40998,161 


cooo 


ORG IC000 


The last line sets up the tables for 






program length (5 blocks] and starting 


C000 A9 36 


SPRB00 LDA 1136 } TAKE OUT 


location |$A100). 


C002 85 01 


STA $01 ; BASIC ROM 


Now, activate the monitor program 


C004 A2 11 


LDX till 


by RESTORE, then S. Save the whole 


C006 BD 1C CO 


L00PC LDA EXTC0D-1.X {TRANSFER 


8K block [this now includes the 


C009 9D A6 02 


STA $02A6,X ;C0DE BELOW 


monitor and the printer formatter) : 


COOC CA 


DEX ;T0 I02A7 


.S " SF.ML",08,A000,C000 


COOD DO F7 


BNE L00PC 




COOF A9 A6 


LDA t$A6 {CHANGE EXIT 


Repeat 


C011 8D DO BF 


STA $BFD0 ; ROUTINE OF 




COM A9 02 


LDA l$02 ;NEH VERSION 


Normally, only the space bar and the 


C016 8D Dl BF 


STA IBFD1 jOF MONITOR 


cursor keys of the Commodore 64 have 


C019 K ED B7 


JMP IB7ED ;G0 TO MONITOR 


auto-repeat. Holding down any other 


C01C 00 


BRK 


key gives you only one character for 


C01D A9 90 


EXTC0D LDA 1190 ; THIS CODE IS 


every key press. A flag for the repeat 


COIF 20 D2 FF 


JSR IFFD2 ;M0VED TO 


function is located at $028A. The 


C022 A2 37 


LDX 1137 ; I02A7 TO RUN 


RESTORE, R sequence of keys has been 


C024 86 01 


STX 101 ; (SEE BELOW) 


assigned to toggling the repeat mode on 


C026 AE 3F 02 


LDX $023F 


and off. When the repeat mode is 'on', 


C029 9A 


TXS 


all keys will have the same auto-repeat 


C02A 6C 02 A0 


JMP ($A002) 


ability. The code for this function is 






extremely simple, as shown in Listing 




ORG I02A7 


3. It fits into an unused area of memory 




EXTC0D LDA 1*90 (OUTPUT BLACK 


located at $C807. It is only 9 bytes 




JSR IFFD2 ; COLOR CODE 


long. 




LDX 1137 {SWITCH IN THE 
STX $01 {BASIC ROM 


Kill 




LDX $023F {ADJUST STACK 
TXS ,-THEN JUMP 


To activate the DOSPLUS routines you 




JMP ($A002) ;T0 WARM START365 


have to load and run the DOSPLUS 






boot program. To kill it requires either 




SET UP THE FOLLOWING BY LOADING 


shutting off the computer or a jump to 




SUPERMON. THEN ENTER FOLLOWING! 


the system reset (SYS 64759). Since it 






is nearly impossible to remember the 




.10001 36 (BASIC ROM OUT) 


number to SYS to, a Kill function was 




. :0037 00 CO (FAKE TOP OF MEM) 


added to DOSPLUS. Hit RESTORE, K 




.6 0880 (TO RELOCATE) 


to reset the computer, kill DOSPLUS 






and the wedge, and wipe out any 




NOW SUPERMON IS RELOCATED TO 


programs in memory. 




$B7ED AND YOU ARE RUNNING IT. 
N0N ENTER THE ABOVE CODE AT $C000 


Wrap-up 




THEN ENTER THE FOLLOWING: 


In this article, we've added four more 




. T COOO C030 B700 


functions to DOSPLUS: F to format 




■ .:A013 01 
. : A033 B7 


the printer, S for Supermon, K for kill, 




and R for repeat on/off. A new BASIC 
boot program will be printed in the 




.S " S«.NL\08,A000,C00Q 


next article in this series. Also provided 




THIS TRANSFERS THE CODE AT HOOO 


next time will be a method to store 




TO $B700 AND PLACES DATA IN 


BASIC programs in hidden RAM, so 




TABLE AT AOOO (1 BLOCK AND 67 


you can switch back and forth between 




IS THE STARTING BLOCK FOR S KEY) 


two BASIC programs by hitting a 




THEN SAVE THE NEW CODE (ALL 8K) 


couple of keys. 


C02D 


END 
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Listing 2 












cooo 


i 


0R8 *C0OO 


C0F3 DO 03 
C0F5 4C 9A C3 


BNE DKEY 
JMP NOSET 




OOFD 


NUHL 


ECU *FB 


C0F8 C9 44 DKEY CMP #*44 ; 


D 


OOFE 


NUHH 


EQU *FE 


COFA DO 03 


BNE CKEY 




007C 


FPFILE 


E9U *7C 


COFC 4C 44 C3 


JMP QUTALL 




C88F 


D4 


EQU *C88F jDOSPLUS ROUTINES 


COFF C9 43 CKEY CMP 1*43 j 


C 


C8C3 


TABCON 


EQU *C8C3 


C101 FO 03 


BEQ LINNID 




C9BC 


PRNTON 


EQU *C9BC 


C103 4C 2B CO 


JHP QPENHS 




C9C4 


PRNTOF 


EQU *C9C4 


C104 20 41 CB LINNID JSR HESSAG 




CB41 


HESSAG 


EQU ICB41 


C109 OD OD 


BYT *0D,*0D 




CF99 


SCRSAV 


EQU $CF99 


C10B 43 48 41 


ASC 'CHARACTERS' 




CFB1 


SCRRCL 


EQU ICFB1 


C115 OD 


BYT *0D 




F1CA 


OLDOUT 


EQU *F1CA ; KERNAL ROUTINES 


C114 2F 4C 49 


ASC '/LINE /INCH 


ENTER' 


FFBA 


SETLFS 


EQU IFFBA 


C128 OD 


BYT *0D 




FFBD 


SETNAM 


EQU *FFBD 


C129 20 31 33 


ASC ' 132 17 


<1>' 


FFCO 


OPEN 


EQU *FFCO 


C13A OD 


BYT *0D, 




FFC3 


CLOSE 


EQU *FFC3 


C13B 20 20 39 


ASC ' 96 12 


<2>' 


FFC9 


CHKOUT 


EQU *FFC9 


CMC OD 


BYT *0D 




FFCC 


CLRCHN 


EQU *FFCC 


C14D 20 20 39 


ASC ' 94 PROP. 


<3>' 


FFCF 


CHRIN 


EQU *FFCF 


C15E OD 


BYT *0D 




FFE4 


GETIN 

■ 

» 


EQU *FFE4 


C15F 20 20 38 
C170 OD 


ASC ' 80 10 
BYT *0D 


<4>* 


COOO 20 99 CF 


FRMPTR 


JSR SCRSAV ;MAKE SURE 


C171 20 20 34 


ASC '44 8.5 


<5>' 


C003 A9 45 




LDA #*45 {DEFAULT IS 


C182 OD 


BYT *0D 




COOS 8D 59 C4 




STA THDDES+1 (ESTABLISHED 


CI 83 20 20 34 


ASC ' 48 6 


<6>' 


COOS A9 OF 




LDA **0F ; IN CASE OF 


C194 OD 


BYT «0D 




COOA 8D 5A C4 




STA THODES+2 ; RE-ENTRY 


C195 20 20 34 


ASC ' 48 PROP 


<7>' 


GOOD A9 22 




LDA 4*22 


C1A6 OD 


BYT *0D 




COOF 8D 5C C4 




STA THODES+4 


C1A7 20 20 34 


ASC ' 40 5 


<B>' 


C012 A9 43 




LDA 1*43 


C1B8 OD 


BYT *0D 




C014 8D E4 C4 




STA TFREND 


C1B9 20 20 20 


ASC ' 




C017 A9 00 




LDA 1*00 


C1C6 00 


BYT *00 




C019 8D 67 C4 




STA TCONNT+2 


C1C7 20 41 CB QUESTH JSR HESSA8 




C01C A9 OA 




LDA **0A 


C1CA 20 3F 


ASC ' ?' 




C01E 8D 4A C4 




STA TCQNNT+5 


C1CC 00 


BYT $00 




C021 A9 5A 




LDA l*5A 


C1CD 20 21 C4 LINHOD JSR 6ETNBR 




C023 8D 4D C4 




STA TCONNT+8 


C1D0 C9 09 


CMP #*09 


>8? 


C024 A9 01 




LDA 1*01 


C1D2 BO F3 


BCS QUESTH 


YES, RETRY 


C028 8D 54 C4 




STA FQRHLN 


C1D4 C9 01 


CMP #*01 


>0? 


C02B 20 41 CB 


QPENHS 


JSR HESSAG 


C1D4 90 EF 


BCC QUESTH 


NO, RETRY 


C02E 93 20 20 




BYT *93,*20,*20,*12 


C1D8 AA 


TAX 




C032 53 45 54 




ASC 'SET-UP FOR NEC/ 


C1D9 BD 5C C4 


LDA TCHRLN-l.X 




C041 50 52 4F 




ASC 'PRONRITER--CONNECTIQN' 


C1DC 8D 52 C4 


STA CHRIND 




C054 92 OD OD 




BYT *92,*0D,*0D 


C1DF EO 01 


CPX #*01 




C059 20 44 45 




ASC ' DEFAULT: CPI=12 LH=10' 


C1E1 FO 04 


BEQ CDNDEN 




C06F 20 52 4D 




ASC ' RH=4 LINE=80. ' 


C1E3 EO 05 


CPX #*05 




C07D OD 




BYT *0D 


C1E5 DO 05 


BNE PICA 




C07E 20 44 4F 




ASC ' FORM=YES SKIP=YES' 


C1E7 A9 51 CQNDEN LDA 1*51 




C090 20 45 4E 




ASC ' ENHANCED. ' 


C1E9 8D 59 C4 


STA TMODES+l 


17 CPI NODE 


C09C OD OD 




BYT *OD,*OD 


C1EC EO 04 PICA CPX #*04 




C09E 45 4E 54 




ASC 'ENTER:' 


C1EE FO 04 


BEQ TENCHR 




C0A4 OD 




BYT *0D 


C1F0 EO 08 


CPX #*0B 




C0A5 20 20 20 
COBB OD 
COBC 20 20 20 
CODl OD 
C0D2 20 20 20 
C0E3 OD 




ASC ' <D> DEFAULT SET-UP' 
BYT *0D 

ASC ' <C> CHAN6E SET-UP' 
BYT *0D 

ASC ' <N> NO SET-UP' 
BYT *0D 


C1F2 DO 05 BNE PROP 
C1F4 A9 4E TENCHR LDA t*4E 
C1F6 8D 59 C4 STA TMODES+l 
C1F9 EO 03 PROP CPX 1*03 
CIFB FO 04 BEQ PROPOR 
CIFD EO 07 CPX 1*07 


10 CPI MODE 


C0E4 20 20 20 




ASC ' ?' 


C1FF DO 05 


BNE ELITE 




C0E9 00 




BYT *00 


C201 A9 50 PROPOR LDA #*50 




COEA 20 E4 FF 
COED C9 00 
COEF FO F9 


HATDCN 


JSR 6ETIN 
CMP 1*00 
BEQ MATDCN 


C203 8D 59 C4 STA TMODES+l 
C206 EO 05 ELITE CPX 1*05 
C208 90 05 BCC LEFT 


PROPORTIONAL 
MODE <5? 
YES GO ON 


C0F1 C9 4E 




CMP #*4E jN 
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C20A A9 OE 


LDA HOE ;N0 HIDE MODE 


C30D OD OD 


BYT $OD,$OD 




C20C 8D 5A C4 


STA TMODES+2 


C30F 53 4B 49 


ASC 'SKIP OVER PERF' 


C20F 20 41 CB LEFT JSR MESSAG 


C31D 00 


BYT $00 




C212 OD QD 


BYT $OD,$OD 


C31E 20 E3 C3 


JSR 6ETYN 




C214 23 20 43 


ASC '1 CHAR LEFT MARGIN ?' 


C321 90 05 


BCC ENHAN 




C228 00 


BYT $00 


C323 A9 40 


LDA t$40 ; 


DELETE END OF 


C229 20 21 C4 


JSR GETNBR 


C325 8D E4 C4 


STA TFREND , 


FORM CODE 


C22C 80 6A C4 


STA TCONNT+5 ;LEFT STOP 


C328 20 41 CB 


ENHAN JSR MESSAG 




C22F 20 41 CB 


JSR MESSAG 


C32B OD OD 


BYT $OD,$OD 




C232 OD OD 


BYT $0D,$0D 


C32D 45 4E 48 


ASC ENHANCED PRINT' 


C234 23 20 43 


ASC 'ft CHAR RIGHT MARGIN ?' 


C33B 00 


BYT $00 




C249 00 


BYT $00 


C33C 20 E3 C3 


JSR 6ETYN 




C24A 20 21 C4 


JSR 6ETNBR 


C33F BO 05 


BCS OUTALL 




C24D 8D 53 C4 


STA RITMAR 


C341 A9 21 


LDA «$21 


SET ENHANCED 


C250 AD 52 C4 


LDA CHRIND 


C343 8D 5C C4 


STA TMODES+4 


MODE 


C253 38 


SEC 


C346 20 C4 C9 


OUTALL JSR PRNTOF 


PRINTER OFF 


C254 ED 53 C4 


SBC RITMAR 


C349 AO 00 


LDY l$00 




C257 BO 1C 


BCS RHIDTH ;LINE >0 CHAR 


C34B 20 C3 C3 


JSR FPOPEN 


SEC ADR=0 


C259 20 41 CB NEGLIN JSR MESSAG 


C34E A2 00 


LDX t$00 


3 BYTES 


C25C OD OD 


BYT $OD,$0D 


C350 BD 55 C4 


L00PF1 LDA TFLYES.X 




C25E 4E 4F 20 


ASC 'NO GOOD. TRY AGAIN.' 


C353 20 CA Fl 


JSR OLDOUT 


THIS MAKES 


C271 00 


BYT 100 


C354 E8 


INX 


SURE NO CR 


C272 4C 06 CI 


JMP LINMID 


C357 EO 03 


CPX i$03 


IS GENERATED 


C275 8D 4D C4 RWIDTH STA TCONNT+8 ;RI6HT STOP 


C359 DO F5 


BNE L00PF1 




C278 ED 4A C4 


SBC TCONNT+5 


C35B 20 DA C3 


JSR FPCLOS 




C27B 90 DC 


BCC NEGLIN 


C35E AO 04 


LDY «$04 




C27D 85 FD 


STA NUML ;LINE WIDTH 


C340 20 C3 C3 


JSR FPOPEN 


SEC AIIR=4 


C27F 20 41 CB 


JSR MESSAG 


C343 A2 00 


LDX MOO 


5 BYTES 


C282 OD OD 


BYT $OD,$0D 


C345 BD 58 C4 


L00PF2 LDA TMODES.X 




C284 54 48 49 


ASC 'THIS GIVES A LINE OF ' 


C34S 20 CA Fl 


JSR OLDOUT 




C299 00 


BYT $00 


C36B Ea 


INX 




C29A A9 00 


LDA #$00 


C34C EO 05 


CPX i$05 




C29C 85 FE 


STA NUMH 


C34E DO F5 


BNE L00PF2 




C29E A9 40 


LDA 1140 i CHANGE CODE 


C370 AD 54 C4 


LDA FORMLN 


FORM SET UP? 


C2A0 8D CO C8 


STA TABCON-3 ; TO SUBROUTINE 


C373 FO OD 


BEQ FCL 


NO, SKIP IT 


C2A3 20 8F C8 


JSR D4 


C375 A2 00 


LDX t$00 


134 BYTES 


C2A4 A9 4C 


LDA i$4C i RESTORE D4 


C377 BD 4F C4 


L00PF3 LDA TFQRLN,X 




C2A8 8D CO CB 


STA TABCON-3 jCODE 


C37A 20 CA Fl 


JSR OLDOUT 




C2AB 20 41 CB 


JSR MESSAG 


C37D Ea 


INX 




C2AE 20 43 48 


ASC ' CHARACTERS' 


C37E EO 88 


cpx i$as 




C2B9 OD 


BYT $0D 


C380 DO F5 


BNE L00PF3 




C2BA 4F 4B 


ASC OK' 


C382 20 DA C3 


FCL JSR FPCLOS 




C2BC 00 


BYT $00 


C385 AO 00 


LDY i$00 




C2BD 20 E3 C3 


JSR GETYN ;S0 FAR OK? 


C387 20 C3 C3 


JSR FPOPEN 


SEC ADR=0 


C2C0 90 03 


BCC FOLDMD jYES GO ON 


C38A A2 00 


LDX l$00 


10 BYTES 


C2C2 4C 04 CI 


JMP LINHID 


C38C BD 45 C4 


L00PF4 LDA TCONNT.X 




C2C5 20 41 CB FOLDMD JSR MESSAG 


C38F 20 CA Fl 


JSR OLDOUT 


THIS GOES 


C2C8 OD CD 


BYT $0D,$0D 


C392 E8 


INX 


TO INTERFACE 


C2CA 57 41 4E 


ASC 'WANT FOLD MODE ON* 


C393 EO OA 


CPX i$OA 




C2DB 00 


BYT $00 


C395 DO F5 


BNE L00PF4 


NOT PRINTER 


C2DC 20 E3 C3 


JSR GETYN 


C397 20 DA C3 


JSR FPCLOS 




C2DF BO 05 


BCS FORMSU 


C39A 20 41 CB 


NOSET JSR MESSA6 




C2E1 A9 01 


LDA #$01 ;FOLD MODE 


C39D OD OD 


BYT $OD,$OD 




C2E3 8D 47 C4 


STA TCONNT+2 {SET SWITCH 


C39F 57 41 4E 


ASC 'WANT THE PRINTER LEFT 0' 


C2E4 20 41 CB FORMSU JSR MESSAG 


C3B6 00 


BYT $00 




C2E9 OD OD 


BYT $0D,$0D 


C3B7 20 E3 C3 


JSR 6ETYN 




C2EB 53 45 54 


ASC 'SET UP FORM LENGTH' 


C3BA BO 03 


BCS FPTRDN 




C2FD 00 


BYT $00 


C3BC 20 BC C9 


JSR PRNTON 


PRINTER ON 


C2FE 20 E3 C3 


JSR GETYN 


C3BF 20 Bl CF 


FPTRDN JSR SCRRCL 




C301 90 07 


BCC SKIPPF 


C3C2 40 


RTS 




C303 A? 00 


LDA i$00 j NO FORM SO 








C305 8D 54 C4 


STA FORMLN ; RESET SWITCH 




SUBROUTINES TO SUPPORT ABOVE CODE 


C308 FO IE 


BEQ ENHAN jALSO SKIP SKIP 








C30A 20 41 CB SKIPPF JSR MESSAG 


C3C3 A9 7C 


FPOPEN LDA «FPFlLE 
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C3C5 A2 04 




LDX 1104 


C453 06 


RITMAR BYT *06 


C3C7 20 BA FF 




JSR SETLFS 


C454 01 


FORMLN BYT *01 


C3CA A9 00 




LDA MOO 






C3CC 20 BD FF 




JSR SETNAN 


C455 IB 57 00 


TFLYES BYT *1B,*57,*00 


C3CF 20 CO FF 




JSR OPEN 






C3D2 BO 04 




BCS FPCLOS ; ERROR 


C458 IB 45 OF 


TNODES BYT *1B,*45,*0F,*1B,*22 


C3D4 A2 7C 




LDX IFPFILE 






C3D6 20 C9 FF 




JSR CHKOUT 


C45D 84 60 60 


TCHRLN BYT *84,*60,*60,*50 


C3D9 60 


i 


RTS 


C461 42 30 30 


BYT *42,*30,*30,*28 


C3DA A9 7C 


'fpclos 


LDA IFPFILE 


C465 IB 46 00 


ICONNT BYT *1B,*46,*00 |FOLD OFF 


C3DC 20 C3 FF 




JSR CLOSE 


C468 IB 49 OA 


BYT *1B,*49,*0A ; LEFT MARGIN 


C3DF 20 CC FF 




JSR CLRCHN 


C46B IB 57 5A 


BYT *1B,*57,*5A jRISHT STOP 


C3E2 60 


■ 


RTS 


C46E OD 


BYT *0D ;CAR REl 


C3E3 20 41 CB 


'getyn 


JSR MESSAG 


C46F ID 41 


TFORLN BYT *!D,*41 


C3E6 20 3C 59 




ASC ' <Y/N> ?' 


C471 40 40 40 


asc mmmi 




C3EE 00 




BYT $00 


C47B 40 40 40 


ASC 'MMMMM 




C3EF 20 E4 FF 


WATNUL 


JSR GETIN (KEEP FROM 


C485 40 40 40 


asc 'mmmt 




C3F2 C9 00 




CMP 1*00 ; FALSE ENTRY 


C48F 40 40 40 


ASC -'MUNICH 




C3F4 DO F9 




BNE WATNUL 


C499 40 40 40 


asc 'mmmt 




C3F6 20 E4 FF 


WATYN 


JSR 6ET1N 


C4A3 40 40 40 


asc 'msmm 




C3F9 C9 00 




CMP MOO 


C4AD 40 40 40 


asc mmhmm 




C3FB FO F9 




BES NATYN 


C4B7 40 40 40 


ASC MMMMH 




C3FD C9 59 




CMP 1*59 jY FOR YES 


C4C1 40 40 40 


ASC MMNNN 




C3FF DO 02 




BNE NESCHK 


C4CB 40 40 40 


ASC NNNMN 




C401 IB 




CLC 


C4D5 40 40 40 


ASC 'MMMMII' 


C402 60 




RTS 


C4DF 40 40 40 


ASC 'M§N' 


C403 C9 4E 


NEGCHK 


CMP l*4E ;N FOR NO 


C4E4 43 


TFREND BYT $43 ; BOTTOM MARGIN 


C405 DO DC 




BNE SETYN 


C4E5 40 40 40 


ASC 'NMNMN' 


C407 38 




SEC 


C4EF 40 40 40 


ASC 'MCie- 


C408 60 




RTS 


C4F4 41 40 IE 


BYT *41,*40,*1E 


C409 20 41 CB 
C40C OD OD 


'numerr 


JSR MESSA6 
BYT *OD,*OD 


C4F7 


END 








C40E 45 52 52 




ASC 'ERROR-TRY A6AIN. ' 


Listing 3 


KERYAN DOSPLUS+ PART 3 MARCH 1984 


C41F OD 00 




BYT *0D,*00 




REPEAT FUNCTION TOGGLE ON/OFF 


C421 A9 00 


6ETNBR 


LDA MOO 






C423 85 FD 




STA NUHL 




USE WITH DOS+ 


C425 85 FE 




STA NUMH 






C427 20 CF FF 




JSR CHR1N 


cao7 


ORG *C807 


C42A C9 30 


FPDEC 


CMP 1*30 






C42C 90 DB 




BCC NUMERR 


028A 


RPTFL8 E8U *028A 


C42E C9 3A 




CMP l*3A 






C430 BO D7 




BCS NUMERR 


CB07 AD BA 02 


REPETS LDA RPTFLG 


C432 29 OF 




AND t*OF 


C80A 49 80 


EOR 1*80 


C434 A2 11 




LDX 1*11 


C80C 80 8A 02 


STA RPTFLG 


C436 DO 05 




BNE ND3 


C80F 60 


RTS 


C438 90 02 


ND1 


BCC ND2 






C43A 69 09 




ADC 1*09 




CHANGE POINTERS TO USE THE R KEY 


C43C 4A 


ND2 


LSR 




FOR REPETG 


C430 66 FE 


ND3 


ROR NUHH 






C43F 66 FD 




ROR NUML 


CBD2 


ORG *CBD2 


C441 CA 




DEX 


CBD2 07 


BYT *07 


C442 DO F4 




BNE ND1 






C444 20 CF FF 




JSR CHR1N 


CBF2 


ORG *CBF2 


C447 C9 OD 




CMP MOD 


CBF2 C8 


BYT *C8 


C449 DO DF 




BNE FPDEC 






C44B A5 FE 




LDA NUHH 


CBF3 


END 


C44D DO BA 
C44F A5 FD 




BNE NUMERR 
LDA NUHL 










C451 60 


i 
j 


RTS 


Michael 
Locust C 


J. Keryan may be reached at 713 
rive, Tallmadge, OH 44278, 


C452 60 


CHRINO 


BYT *60 
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From Here to Atari 



by Paul S. Swanson 



Free Connections 

In a surprising number of homes all 
over the country people are donating 
their time, computer equipment and 
phone lines to the public. These people 
operate computer bulletin board ser- 
vices [BES'sJ. Calling BBS's is becom- 
ing a very popular pasttime. These 
BBS's, or "boards" as they are more 
commonly called, usually contain a 
message base where callers can post 
messages on just about any topic they 
care to discuss. For example, in the 
message bases of the boards I call in 
this area contain ongoing discussions 
about national politics, US-USSR rela- 
tions, nuclear weapons control and 
economics. There are also other discus- 
sions concerning the possibilities of 
colonizing other planets. In addition, 
there are more "down to earth" topics 
such as for sale and wanted ads, an- 
nouncements of the numbers of new 
boards, questions and answers about 
computers and critiques of television 
shows and movies. Other features of- 
fered by these boards include on-line 
games, local weather reports, public 
domain software, private electronic 
mail, lists of the telephone numbers of 
other boards, help screens and chat. 
The chat mode calls for the BBS's 
owner, usually referred to as the 
"SysOp," to converse via the 
keyboards. Almost all of the boards 
have most of these features. Some 
boards also have multiple message 
bases so that conversations are 
categorized by some general criteria. If, 
for example, you didn't want to have 
anything to do with the current 
political discussion, you wouldn't have 
to see it at all, but could look at all of 
the other messages. 

Obtaining the public domain soft- 
ware available on the boards requires 
that you have a terminal program that 
can download files. Normally, this re- 
quires that you have a disk drive on 
your system, but there are some pro- 
grams that will work with cassettes. 
There are an enormous number of 
public domain programs on the boards 
ranging from games to serious utility 



programs, which makes obtaining a ter- 
minal program that allows 
downloading a worthwhile effort. If 
you run into problems finding one for 
your particular computer, you can 
leave a message on one of the boards 
asking for help. 

This service is, of course, not free of 
problems. Occasionally there will be a 
"problem caller" on a board, doing 
some things which cause problems on 
the system. For this reason, many 
boards have instituted password 
systems. These passwords are almost 
always free as long as you leave your 
real name and a valid telephone 
number for verification. That way, the 
SysOp knows who is using his com- 
puter and if anyone causes problems, 
he knows who to call by the password 
used. Although having to apply for a 
password intimidates some new users, 
it has been effective in eliminating pro- 
blems like this on most boards. Usual- 
ly on these password systems, you are 
also allowed use of a fictitious name on 
the board so that, if you are shy about 
using your own name, only you and the 
SysOp know who you really are. Get- 
ting started is usually the hardest part 
of communicating with free boards. 
The problem is getting the first number 
to call. Not too many places list these 
free telephone numbers. I have listed 
some boards below which are in the 
Cambridge area. North Shore AMIS, 
which is running on an Atari, has a list 
of Atari-run boards all over the country. 
The numbers are in the Features sec- 
tion in a file called ATARIBBS. When 
you have called there for the list, call 
the board that is listed as being nearest 
you to look for the numbers of other 
boards that are in your area. 

There are some standards to be con- 
sidered in the communication. Almost 
all boards, at either 300 or 1200 baud, 
communicate with 8 bits per word with 
one stop bit, no parity, full duplex 
ASCII. If your terminal program has 
ways to alter the communications 
parameters, those will probably be the 
items listed. If any of them are not 



listed or not alterable, your terminal 
program probably already assumes the 
correct value, since those selections are 
so standard. If you are not sure of any 
particular setting, try it one way and 
call a board. If you find that the com- 
puters cannot communicate, alter the 
parameter in question and try again. 
Trial and error will eventually get you 
through, although odds are good that 
the default values set for your program 
are those described above. 

Calling the boards in your area can 
be informative, useful and, of course, 
very entertaining. The biggest problem 
with them is that they are addictive, so 
you have to keep careful track of how 
much time you spend on this in- 
teresting new hobby. Some BBS's in 
the Cambridge area (all in the 617 area 
code) are: 

□ Nite Lite 576-2426 
(6pm - 6am only) 

a The Outpost 259-0181 

a North Shore AMIS 595 - 021 1 

D Boston Bullet 266 - 7789 

D Boston Bullet TBBS 267 - 7751 

□ The Trash Bin 497 - 6641 

□ King 's Castle 444 - 5401 

There are actually over 30 free boards 
which are in the local dialing area of 
Cambridge. The other numbers are 
listed on the above boards. All of the 
boards above will answer at either 300 
or 1200 baud except King's Castle, 
which is 300 baud only. The hours for 
my board, Nite Lite, are eastern time. 
Please make the appropriate adjust- 
ment for your time zone. 

JMCAO 
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FORTH 

Implementation 

by Richard H. Turpin 



The Bezier method allows a curve to be represented with a 
minimum amount of data. Only four "control points" are 
needed for this example 



When displaying curves and surfaces in 
computer graphics systems one of the 
concerns is the method of curve 
description. A straight line is compact- 
ly defined in terms of its end points, 
and a circle can be defined simply in 
terms of its center and radius. But how 
do you define a curve without using a 
large number of data points? 

There are a number of methods for 
defining curves efficiently, one of 
which is the Bezier curve. In this 
article FORTH code is described for 
drawing Bezier curves, given four 
"control points." An application 
program, also in FORTH, is included to 
illustrate the use of Bezier curves, 
along with other graphics primitives, to 
Eenerate line drawings. 

Bezier Curves Defined 

The purpose of the Bezier method is to 
represent a curve with a minimum 
amount of data. It is an interpolation 
scheme which uses "control points" to 
define a curve in two dimensional 



space. Each control point is an X,Y data 


pair defining a point in the X,Y plane. 


The Bezier Curve is defined by the 


equation 1 




(1) P(t)= 


^P.J .(t) 
"r- i n,i 


0<=t< = 


=1 


P., i=0,l, 

1 


• • • i n i 


J .(t) 
n,i 


J .(t) 

n,i 



where 



(3) 



n! 



i! (n-i) 1 



where the P(i|, i = 0,l,...,n, are the 
control points. The functions J(n,i) (t) 
are called "blending functions" 
because they act to blend the effects of 
all the control points in determining 
each point on the curve. f(n,i](t) is 
defined by equations 2 and 3. 



(2) 



J . (t) = 
n,i 




(1-t) 



n-i 



The parameter t provides a single 
variable for representing the curves in 
place of the two natural variables X and 
Y. This "parameterization" of the 
curve results in a simplification of the 
equations used in representing the 
curve, and hence in curve generation. 
The quality of the resultant curve is 
enhanced, also. 

A common application of equations 
1, 2 and 3 is derived by letting n = 3. 
The result is a cubic Bezier curve 
which is defined by four control points. 
The four control points PO, PI, P2 and 
P3 define a curve in the following way. 
PO and P3 define the end points of the 
curve. PI and P2 control the shape of 
the curve, but they do not lie on the 
curve. Points PO and PI determine the 
direction in which the curve leaves PO, 
while P2 and P3 determine the angle of 
arrival at P3. Figure 1 provides example 
Bezier curves to demonstrate this. 
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Notice in each example that the curves 
leave PO and approach P3 in directions 
defined by the straight lines connecting 
PI to PO and P2 to P3, respectively. In 
addition to the influence PI and P2 
have on the curve at the endpoints, 
they have considerable control on the 
overall shape of the curve. The 
examples given in Figure 1 illustrate 
the wide range of curve shapes which 
can be generated. 



In Figure 2 is an example of a family 
of curves which is easily generated by 
changing one or more of the control 
points. 

A number of Bezier curves can be 
used to form complex curves and 
surfaces, such as shown in Figure 3. 

Implementation of Bezier Curves 
in FORTH 

From equations 1, 2 and 3, with n = 3, 



Figure 1. 


Example Bezier Curves 






(a) 




(0,0) 


P, F p 2 


(255,0) 






\ (10,20) / (200,10) 








Y 3 








P (150,100) 








(20,120) 






(0,192) (255,192) 






(b) 






P 2 P 1 
V P0,20) (220,20) /* 








/\? 








P (80,150) (180,150) 








(c) 






*P1 

y (110,10) 

/ 
/ 














P„ " *f (200,90) 








(20,100) / 
/ 














(110,180),' 

* P 

V 2 
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the equation for a cubic Bezier curve 
can be written as in equation 4, 

(4) P(t) = (l-t) 3 *P0 + 

3*t*(l-t) 2 *Pl + 

3*t 2 *(l-t)*P2 + 

t 3 *P3 

0<=t<=l 
where each point P(t) represents an X, Y 
position on a coordinate system. Note 
that for t = 0, P(0) = P0 and for t=l, 
P(l) =P3.For values of t between and 
1 P|t) is a blending of the four points 
P0, PI, P2 and P3. 

Equation 4 could be programmed as 
it is, but a more efficient representation 
can be found. It can be rewritten as 

(5)P(t) + t 3 *[(P3-P0)- 
3*(P2-P1)] + 
t 2 *[3*(P2-Pl)- 

3*(P1-P0)] + 
t*[3*(Pl-P0)] + P0 
Letting 

(6) PO' = PO 

(7) PI' = 3*(P1-P0) 

(8) P2' = 3*(P2-P1)- 

3*(P1-P0) 

(9) P3' = (P3-P0)- 

3*(P2-P1) 
equation 5 becomes 

(10) P(t) = t 3 *P3' + 

t *P2' +t*Pl' + PO' 



(11) P(t) = t*(t* 

(t*P3'+P2' )+Pl ' )+P0' 
Note in equation 11 the repeated 
expression (t*Pm + Pn) found nested 
three levels deep. This expression for 
P(t) requires considerably fewer 
calculations than the original form in 
equation 4 . In particular, the number of 
multiples is reduced to six (three for 
each dimension X and Y). The 
computations defined in equations 6 
through 9 are performed once for a 
given curve. To generate the curve, 
equation 11 is then evaluated for 
several values of t. 
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Figure 3. Generating Complex Curves 
and Surfaces 




FORTH screens 42 through 47 given 
in Listing 1 are an implementation of 
equation 11. Taking advantage of 
FORTH extensibility, X,Y point 
operators P@, P!,P + , P-, P*, P*/, 
PDUP and PSWAP are defined [see 
screens 43 and 44) corresponding to the 
FORTH operators @ (fetch), ! (store, = 
(plus), - (minus),* (times), */ |times- 
divide), DUP (duplicate top of stack), 
and SWAP (exchange top two items on 
stack). {Note: the notation (m,n — p,q) 
defines stack contents before (on the 
left) and after (on the right] the word 
executes.} Control point storage is 
defined in terms of point names PO, PI, 
P2 and P3, rather than (X0,Y0), 
(XI, Yl), etc., for convenience. In each 
case, the point name Pi points to the 
corresponding X value; the Y value is 
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stored in the next cell. (See lines 7-11 
of screen 44.) 

To draw the Bezier curve, points 
P(t) are calculated for several values of t 
and the points are connected by 
straight lines. By choosing small 
enough increments in t, the resultant 
plot appears as a "smooth" curve [as a 
function of the resolution of the 
graphics system). In the 
implementation presented here integer 
arithmetic is used, not only because 
FORTH arithmetic is integer, but also 
because it is faster. The parameter t 
must be scaled so that it takes on only 
integer values. A variable N is defined 
as the upper limit of t. N also specifies 
the number of line segments used to 
build the curve. To generate a curve, 
then, the graphics cursor is moved to 

MICRO 



the beginning of the curve, P(0)=P0, 
then P(T) is computed for T= 1 and a 
line is drawn to P(l). P(T) is computed 
for T = 2 and a line is drawn from P(l) 
to P(2), etc. The process is repeated to 
generate N line segments and to end at 
point P(N)=P3. 

The number of segments is 
determined by computing P(t) at the 
curve midpoint, i.e., at T = N/2. The 
maximum of 

X=(|X(N/2)-X(0)|)/3 

and 

Y=(|Y(N/2)-Y(0)|)/3 
is taken as the segment count, with a 
minimum of 3 and a maximum of 50. 
These minimum and maximum values 
are somewhat arbitrary. They affect 
both curve quality and curve 
generation speed. The FORTH word 
FIX.N defined in screen 46 performs 
this calculation and sets the value of N. 
The variable N.SC, defined in screen 44 
provides a convenient means to 
experiment with the segment count. Its 
default value is 3 (see line 14, screen 
44). 

Equations 6 through 9 are 
implemented in the word 
COMPUTET' in screen 45. The word 
STORE. POINTS is used to define the 
control points PO, PI, P2 and P3 by 
writing data from the stack into the 
corresponding storage locations. 
LIST.PODNTS and SHOW.PODNTS are 
utilities for viewing the control points 
on the CRT or on the graphics display 
device. 

Only two graphics commands are 
used to draw the curve. They are 
TMOVE, which moves the cursor 
(without drawing] to the specified X,Y 
position on the screen, and TDRAW, 
which draws a line from the present 
cursor position to the specified 
position. Equivalent commands should 
be readily defined for most graphics 
systems if they do not already exist. 

MOVE.TO.P0, defined in screen 46, 
simply moves the graphics cursor to 
control point PO, the beginning of the 
curve. LOAD. POINTS was defined to 
load the modified control points 
P0'-P3' onto the stack for use by the 
word P(T). P(T) is an implementation 
of equation 11, the simplified 
expression derived earlier. The word 
performs the general computation 
|t*Pm + Pn) three times as defined by 
equation 11. 

The parameter, T, is varied over its 
range of 1 to N in the word CURVE 
(screen 47), which generates the Bezier 
curve. BEZIER puts everything together 
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to produce a curve given a set of four 
control points PO, PI, P2 and P3. 

To generate the example curve 
shown in Figure lb, the following was 
executed. 

80 150 220 20 10 20 

180 150 STORE. POINTS 

BEZIER 

For the family of curves given in Figure 
2 the word given below was defined, 
then executed: 

: FAMILY 240 30 DO I 
P0 ! BEZIER 10 +LOOP ; 

20 150 1 40 240 20 120 
120 STORE. POINTS 
FAMILY 

where "I P0 !" modifies only XO [not 
YO) since XO is stored at the address 
defined by PO. To modify YO we would 
use PO 2 + !. We could also use the 
point store word P! defined in screen 43 
to redefine any one of the four points. 
For example, "50 140 P0 P!" would 
change point PO X and Y values to 50 
and 140 respectively. 

An Application: Line Drawings 

Screens 35-39 (listing 2) define an 
application of the Bezier curve code, 
along with other graphics primitives, to 
generate line drawings from a table of 
data. Nine commands are defined, as 
listed in screen 35. They provide the 
ability to build a picture from dots, 
straight lines, rectangles, circles and, of 
course, Bezier curves. The data are 
stored on disk in FORTH screens so 
that it can be generated, edited and 
listed using the FORTH editor. 

The only nonstandard words used 
are CASE (screen 38), and the graphics 
primitives COLOR, TDOT, TCIRCLE, 
TMOVE, TDRAW, TRECT and CLEAR 
(used m screens 36 and 37). CASE is the 
version written by C.E. Eaker and A.J. 
Monroe, published in FORTH 
Dimensions. 2 The graphics primitives 
are a subset of the primitives supported 
by the author's system (a TMS9918A- 
based color graphics system) . A similar 
set of primitives should be available or 
could be written for other graphics 
systems. 

The application and examples were 
written assuming a FORTH disk format 
of IK bytes per sector so that one sector 
stores an entire screen of data 
("screen" here refers to the FORTH 
screen, not the graphics screen). The 
word BLOCK (screen 36, line 5) will 



then load an entire screen. Other 
configurations may require slight 
modification of the data file and/or the 
code. 

READ.BLK in screen 36 loads in the 
specified data file and establishes it as 
the source of data for 
READ. COMMAND and DATA. It also 
displays at the terminal the figure title 
or subtitle. READ. COMMAND (screen 
39) reads the next character from the 
data file and expects it to be the ASCII 
code of one of the nine commands. 
CASE, used in EXEC. COMMAND 
(screen 38), then selects the appropriate 
word to execute that command. 

The word DATA in screen 36 is a 
key word in the remaining word 
definitions. It retrieves a parameter 



from the data file. For example, in the 
definition of the word DRAW. CURVE 
it is used eight times to load four X,Y 
data pairs from the file. 

Each screen of a data file begins 
with a title or subtitle which is 
terminated by a "]". Commands are 
given one after the other, each with the 
required number of data values. At 
least one space must separate all 
commands and data values. The "E" 
command terminates the data file. The 
"N" command permits building large 
data files by linking screens (blocks) for 
continuation. 

Figure 4 presents an example 
drawing. The data file is given in 
Listing 3 as screens 40 and 41. Figure 5 
illustrates the derivation of the data 
file. The first five line segments are 




7,100) CF^J 


j/b (155,95) 
(150,102) 


®~y 




(110,135) 


—0(170,135) 



denotes point tor segment n ( nj denotes segment number 

Figure 5. Illustration of data 
definition 
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shown with points PO through P3 for REFERENCES: 
each. To draw the figure defined by 
these data the command 



40 FIGURE 

would be entered at the terminal. 



1. Rogers and Adams, Mathematical 
Elements for Computer Graphics, McGraw- 
Hill Book Co., 1976, pp. 139-144. 

2. Monroe, A. J., FORTH Dimensions, 
Volume III, No. 6, p. 187. 



Richard H. Turpin may be reached at 8226 
Warbler Way, Indianapolis, IN 46223. 



SWAP 
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I. Bezier Curves cant d ) 

1 I Point operators continued ) 

2 : PGUP I X,Y — X , ¥ , X , V ) OVER OVER 

3 : PSWAF ( X0,YQ,X1,Y1 — XI ,¥1 , KO, fO 

4 >R ROT ROT R> ROT ROT j 



( Storage for control points P 1 
VARIABLE PO 2 ALLOT ( X0,YOi 
VARIABLE P2 2 ALLOT i X2,¥2> 
! Storage lor modified points PO 
VARIABLE PO' 2 ALLOT 
VARIABLE P2 2 ALLOT 



14 



VARIABLE N ( Number of line segments in curve ) 
VARIABLE N.SC 3 N.SC ! ( Scale factor for N calculation 
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Bezier Curves cont 'd ) 
Compute modified points PO 
COMPUTE. P' PI PS PO PS P- 
P2 PS PI PS P- 3 P» 
P3 PS PO Pe P- 
P3 P 1 PSWfiP P 



Listing 1. Bezier Curves in FORTH 

SCR » 42 

i Bezier Curves - A FORTH Implementation 1/25/33) 

1 i By R. H. Turpin 

2 ! Reference: Rogers 4 Adams, "Mathematical Eleients for ) 

3 i Computer Graphics," pp 139-144, McGraw-Hill, 1976. ) 

4 ! Define 4 points PO, PI, P2, and P3, each an X,Y pair. ) 

5 i The Bezier curve is defined by the f ol lowi nq equation, ) 

6 ! where 0<=T<=1: 
? ( PIT! = PO*tl-T] "3 + 3» P1*T*[1-T1 -2 

3 ! + 3tP2*T*'2»n-Tl + P3*T A 3 
9 ! where " denotes "raised to the power." 

10 ! The above equation can be rewritten as: 

11 i PIT] = T*tTHT*P3 fP2'l+F'l ]+F0] 

12 ( where PO = PO, PI = 3*[P1-P0], P2' = 3*[F2-P1]-3*[P1-P0] i 

13 ( and P3 = F3-P0-3KP1-F0]. 1 

14 FORTH DEFINITIONS 

15 --> 
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! Bezier Curves cont'd I 

1 ( In the following code control points P0...F3 will be I 

2 ( referenced as l,Y pairs in terms of their corresponding I 
■3 ( names. For example, P2 will refer to X2,¥2. To ! 

4 ( facilitate this the following operators are defined. ) 

5 : Ps i ADDRESS OF X — X,Y ! DUP § SWAP 2+ S ; 

6 : F" ! "I, Y, ADDRESS OF X — ) ROT OVER ! 2+ ! ; 

7 : P+ ! X0,Y0,X1,Y1 — X0+X1,Y0+Y1 ) ROT + ROT ROT 

8 : P- ( X0,Y0,X1,Y1 — X.0-X1,Y0-Y! ) 

9 ROT SWAP - ROT ROT - SWAP ; 

10 : P* ( X,Y,N — NX, NY ) ROT OVER t ROT ROT * ; 

11 : P*> ! X,¥",M,N — HX/N,HY/N I 

12 ROT >R OVER OVER >R >R »/ ( M*X/N i 

13 R> R> R> SWAP */ < M*Y/N ) ; 

14 -> 



..F3 ) 

VARIABLE PI 2 ALLOT I Xl,Yli 

VARIABLE P3 2 ALLOT ! X3,Y3! 

P3 i 
VARIABLE FT 2 ALLOT 
VARIABLE P3' 2 ALLOT 



P3' from control points P0..P3 
P» ! 3IP1-P01 ! PDUP 
3IP2-P1] ) PDUP 
! (P3-F0] ! PSWAP P- 
P2 P! PI P! PO PS PO P! ; 



( A few utilities for handling/defining control points 



! Define control points ) 

9 : STORE. POINTS ( P0,P1,P2,P3 — ! 

10 P3 P! P2 P 1 PI P! PO P! | 

11 ( Display control points at CRT ) 

12 : LIST. POINTS CR PO PS . . PI PS . . P2 PS . . F3 PS 

13 ( Display control points on graphics screen ) 

14 : SHOW. POINTS PO Pe TDOT PI PS TDOT P2 PS TDOT P3 PS TDOT 



CR 



! 

1 I 



4 : 

5 ( 

6 ( 

3 
9 ( 

10 ( 

11 ! 

12 i 

13 : 
14 
15 
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Bezier Curves cont d ! 

Move cursor to start of curve ! 

HOVE. TO. PO PO PS TMOVE ; 

Load modified control points onto stack ) 

LOAD. POINTS PO PS Fl PS F2 PS F3 PS ; 

Compute point on curve given control points and 

parameter, T, where <= T (= N. 

PCT1 ! P0',P1',P2',F3,T — PIT! ! 
3 DO DUP >R N S Ft/ P+ R> LOOP DROP ; 

Compute the number of curve segments by finding the 

distance from PO to the midpoint on the curve. 

The number of segments equals the larger of delta X or 

delta Y, with a minimum of 3 and a maximum of 50. 

FIX.N LOAD. POINTS 2 N I 1 PIT] ( compute midpoint ) 
PO PS P- ABS SWAP ABS MAX i select maximum from X or 
N.SC S / 3 MAX ! min of 3! 50 MIN ( mas of 50! N ! ; 
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! Bezier Curves cont d ! 

1 ( Draw a Bezier curve > 

2 : CURVE N S 1+ 1 DO LOAD. POINTS 



4 : BEZIER COMPUTE. P 



PIT] TDRAW LOOP 
FIX.N HOVE. TO. PO CURVE ; 



6 ! To use the above do the following: 

7 I step 1 - define control points using STORE. POINTS 

8 I step 2 - execute BEZIER 

9 ! The curve generated will pass through the t«a end 

10 ! points PO and P3. The curve will leave point PO with 

11 ( direction defined by a line connecting PO and PI, and 

12 ( will approach P3 with direction defined by a line 

13 ( connecting P2 and P3. Control points PI and P2 are 

14 ! not on the curve but they do help determine the 

15 ! shape of the curve. ! ;S 

Listing 2. Bezier Application - Line Drawings 



SCR » 



! 

1 ( 

2 i 

3 ( 

4 ! 

5 i 

6 ! 

7 I 

3 ! 
9 ! 

10 ! 

11 ( 

12 4 

13 ! 

14 6 
15 



1/4/33 



Bezier Curve Application: Line Drawings 

By R. H. Trupin 

Commands for generating iine drawings: 

B - Draw a curve segment [Data: P0,P1,P2,P3] 
C - Draw a circLe [Data: X,i", RADIUS! 
D - Plot a dot [Data: X,Y] 
E - End of figure [Data: none] 
H - Set color'tData: COLOR! 
L - Draw a line [Data: X0,f0,Xl,Yl] 
N - Read another disk block [Data: 8LK NO.] 
R - Draw a rectangle [Data: BASE , HEIGHT] 
i - Clear screen [Data: none! 
LOAD ( Load Bezier and graphics) 60 LOAD « Load CASE 
Constants for command reference ) 66 CONSTANT 
CONSTANT =C 63 CONSTANT =D 69 CONSTANT =E 72 CONSTANT 
6 CONSTANT =L 73 CONSTANT =N 32 CONSTANT =R 33 CONSTANT 
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SCR t 36 

! Line Dramngs cont d RHT: 1/4/83) 

1 i Words to service coa*ands ) 

2 : DATA ! Read word tro» data; convert to nuiber on stack, ) 

3 32 WORD NUMBER DROP ; 

4 ! Load a block of data tro» disk; print header ) 

5 : READ.6LK ! BLOCK NO. — ) DUP SCR ! BLOCK DROP 

o SCR S BLK ' >IN ! 41 WORD COUNT TYPE ." )" CR ; 

7 i CoMand B: Draw curve usinq Beiier function ) 

8 : DRAW. CURVE 

? 8 DO DATA LOOP < read 4 i,Y pairs, points P0,P1,P2,P3 ,» 
STORE. POINTS BEZ1ER i Draw curve J ; 

i CoMand C: Draw a circle ) 

: DRAW. CIRCLE DATA DATA DATA TCIRCLE ; 

1 Gotland D: Plot a dot ; 

: PUT. DOT DATA DATA TCOT ; --> 
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( Line Drawings cont d 

1 ( Co**and E: End af drawing ) 

2 : END. TASK ," End of figure." ABORT ; 

3 ( Coiiand H: Set plottinq color ! 

4 ; SET. COLOR DATA COLOR i"; 

5 ! CoMand L: Draw a line ) 

6 : DRAW. LINE 

7 4 DO DATA LOOP ( get XO, T'O, X 1 , Y 1 

8 TMOVE TDRAN ( draw line i ; 



RHT: 1/4/83) 



9 


Coinand N: Read next block ot 


data ) 


10 


NEXT. DATA DATA READ. BLK. ; 




11 


Coi«and R: Draw a rectangle ! 




12 


DRAW. RECTANGLE DATA DATA TRECT 


i 


14 

15 
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1 


Line Drawings cont'd 

Coeeand X: Clear the screen ! 




9 


CLR. SCREEN CLEAR ; 




7 


Co*eand execution ) 




4 


EXEC. COMMAND ! COMMAND — ) 




c 

J 


CASE =B OF DRAW. CURVE 


ENDOF 


h 


=C OF DRAW. CIRCLE 


ENDOF 


7 


=D OF PUT. DOT 


ENDOF 


8 


=E OF END. TASK 


ENDOF 


9 


=H OF SET. COLOR 


ENDOF 


10 


=L OF DRAW. LINE 


ENDOF 


11 


=N OF NEXT. DATA 


ENDOF 


12 


=R OF DRAW. RECTANGLE 


ENDOF 


13 


=K OF CLR. SCREEN 


ENDOF 


14 


." Bad data in block 1 ' 


BLK e 
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CR ABORT 



ENDCASE 
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! Line Drawings cont'd RHT: 1/4/83) 

( Get connand trot data; leave on stack ! 
: READ. COMMAND ( COMMAND ADDR. — COMMAND ) 
32 WORD COUNT DROP « 255 AND ; 

! Word to draw figure usinq data stored on disk ) 
: FIGURE ! BLOCK NO. — ) 

READ, BLK ! Load in figure data file ! 
BEGIN ( Draw until end of figure coesand ) 

7TERHINAL IF ABORT THEN i Test for operator abort 
READ. COMMAND 

EXEC. COMMAND ( False flag to continue ) 
UNTIL ; 



Listing 3. Example Line Drawing Data File 

SCR * 40 

i LINE DRAWING DATA: PORKY FI6 ) X 

1 B 90 38 135 23 175 55 150 102 

2 B 110 135 45 135 53 85 70 55 

3 B 75 65 60 50 80 5 90 45 

4 B 135 37 155 32 158 35 152 50 

5 B 85 105 95 100 103 97 108 100 

6 B 105 103 109 100 110 100 

7 B HI 108 117 85 140 85 133 108 

8 B 133 108 125 130 103 130 

9 B 110 119 112 117 113 117 120 120 

10 B 118 118 122 117 123 117 127 119 

11 B 100 98 115 65 122 70 113 100 B 108 97 115 85 117 85 113 100 

12 B 133 95 145 70 14B 75 142 98 B 135 98 143 88 145 S8 142 98 

13 H 15 D 40 15 R 165 135 N 41 
14 

15 



H 1 
B 137 100 155 95 170 135 110 13 



100 

L 111 108 133 108 
113 L 110 113 130 113 
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PORKY PIG CONTINUED ) 



H 6 



6 B 

7 C 

8 L 

9 C 
10 
11 
12 
13 
14 
15 



55 160 5 L 50 155 50 170 

70 165 5 

80 160 80 170 B 30 163 84 160 86 160 90 162 

95 155 95 170 L 95 163 103 157 L 93 162 103 170 

110 160 110 175 120 175 120 160 

120 160 120 180 110 180 110 172 

150 160 5 L 145 155 145 170 

160 163 160 170 C 160 157 2 

170 165 5 B 175 160 175 180 165 180 165 172 E 



SOPHISTICATED TELE-COMMUNICATION IS HERE 

THE COMMUNICATOR 

for 4.0 Commodore Computers 

JIM STRASMA'S REVIEW: 
"THE BEST TERMINAL PACKAGE I'VE SEEN YET" 

By April 1 (maybe sooner) It Will Be Even Better 



TRUE CTRL 



SPEEDS UP TO 9600 BAUD 
XON — XOFF 
KEY (we do our own keyboard 



scan) 



THE HAROWARE — A printed circuit board; easily installed in the CBM. It uses 
no CBM connectors; gives a serial port with true RS232C standard. 

THE SOFTWARE — 

— Emulates the ADDS Regent 100. ADM 31 and/or the 

TeleVideo 950. 1 Or choose the VT1 00 model for use with OEC and VAX 
computers. 

— Runs coresident with BASIC programs; lets BASIC 

programs and program on host computer communicate to develop real- 
ly sophisticated communication and control capabilities. 

— The program is on ROM at either address; no disk loading 

required. Uses only 512 bytes of RAM; wilt relocate itself around any other 
machine language program at top of memory. 

— Will upload and download and run BASIC programs. With BASIC 

program wifl upload and download standard data files. 1 0O page manual 
gives program listing for 8ASIC programs. 
Excellent text editor designed to work with THE COMMUNICATOR 
THE COMMUNICATOR $200 
Text Editor $40 

1200 baud modems beginning at low, low $385, and even less when purchased 
with THE COMMUNICATOR 

AMPLIFY, INC. 
2325 Macbride, Iowa City, Iowa 52240 319-337-8378 

1 trademarks Adds Regent, Inc., Lear Liegler, Inc., Televideo Systems, Inc. 
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least expect it, 

■ ■ 

♦ ♦♦ 





In a few millionths of a second, common electrical surges and spikes 
can enter your data processing equipment and cause memory loss, 
false logic and misregistration. Surges very often do permanent 
damage to microcircuitry. 

FLEXIDUCT Surge Suppressors catch surges and spikes before they 
have a chance to enter your equipment In billionths of a second 
(Nanoseconds),FUXIDUCT Surge Suppressors dissipate surges and 
spikes from any side of the line (most protect only one side). 
The multi-outlet unit is ideally suited to the computerized work- 
station. It gives you the advantage of circuit breaker protection with 
plenty of outlets for data processor and peripheral equipment 
No computer should be without the protection of a FLEXIDUCT Surge 
Suppressor...csp«cialrf yours! Write or call for further information. 
Available from office products retailers. 



52ZZZZZ^7® Surge Suppressors 

a product of Winders & Geist, Inc. P.O. Box 83088 Lincoln, NE 68501 402/474-3400 
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PEEKing Tom 

Playing with 

BASIC'S 

Internals 



by Mark Johansen 




A few simple techniques to help find how and where things 
are done within almost any system 



One thing that I enjoy about 
microcomputers is that no one minds if 
you mess with the system internals: 
unlike a large mainframe, where any 
disruption to the system may affect 
hundreds of people and cost the 
company a lot of money, on a micro the 
only one you can really hurt is yourself, 
and if you do it's generally your own 
fault. In fact, most of the micros on the 
market today come with a BASIC 
interpreter that includes a PEEK 
function and a POKE statement. It is 
hard to think of a feature which could 
be handier to someone interested in 
seeing just how the system works and 
occasionally taking advantage of such 
internals. 

I am using an IBM PC at work and, 
much to my disappointment, none of 
the manuals that I have for it say much 
of anything about where the system 
keeps its variables or how BASIC 
programs or data are actually stored in 
memory. However, I managed to devise 
a few simple techniques to help me find 
50 



how things were done. While I will use 
the IBM PC as my reference point, the 
ideas I discuss here should be 
applicable to almost any micro having 
PEEKs and POKEs. For this reason, I 
will avoid using any statements or 
formats in my sample programs that 
are not likely to be found in almost any 
version of BASIC (such as NEXT 
without a variable, multiple 
statements per line, the PC's DEF SEG, 
etc.). 

[Ed. Note: These mini - programs and 
techniques axe really very easy to adapt to 
other micros. I used them on the Apple, 
Commodore and running 6809 Flex BASIC] 

Finding A Program 

A logical place to start is with finding 
our program. It is extremely unlikely 
that the operating system will actually 
place our program at the beginning of 
memory,- it probably has data it needs 
for itself there. But what we can do is 
MICRO 



write a short program that will look 
through memory searching for itself. 
How will it recognize itself when it 
finds it? If we knew exactly how the 
system stored our program in memory 
this would be no problem: we would 
just look for a string of bytes which 
matches the first few bytes of our 
program. But even if we do not know 
this, there is one thing we can be 
reasonably confident will be 
recognizable, namely, text such as in a 
PRINT statement. 

Consider the following: 

Program 1 

10 PRINT "FINDING MYSELF AT:" 
20 FOR S=0 TO 10000 
30 C1*=CHR$(PEEK(S» 
40 IF CUO'F" THEN 90 
50 C2$=CHR$(PEEK(S+1)) 
60 IF C2*<>"I" THEN 90 
70 PRINT "FOUND MYSELF AT":S 
90 NEXT S 
100 END 
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This program will search through 
memory looking for every occurrence 
of the letters "PI", the first two letters 
of the printed text string, and printing 
out the address of each occurrence. 
(The 10000 in the FOR statement is a 
reasonable amount of memory to 
search and is likely to contain your 
program. If you cannot get a hit and you 
have more than 10,000 bytes of 
memory, you might increase this 
number. If the program keeps running 
for a long time after it has found itself, 
you may just break it and not worry 
about looking any further.) If there is 
more than one fine, there is probably 
just another place in memory that 
contains those two characters by 
coincidence. We simply change the 
program to check for more letters 
before reporting a success. When we 
have narrowed it down to one we have 
found our program. Of course, the real 
start will be a few bytes before this, as 
the line number, the keyword PRINT, 
and possibly some control information 
must precede the text string. 

You might try putting in programs 
of different lengths (just tack some 
useless lines on the end), adding more 
variables, starting with different things 
on the screen, running with and 
without any memory expansions you 
might have and so on, to see what, if 
anything, changes your program's 
location. 

Finding the Program Start Address 

While we may find it amusing to see 
where our program begins, it is 
imperative that the operating system 
be able to find it if it hopes to do 
anything meaningful when we type 
"RUN". It is, therefore, very likely 
that it keeps track somewhere of what 
our program's actual start address is. If 
we knew where this value was stored, 
we could save ourselves the trouble of 
having to look for our program every 
time and simply pick the number up 
from the same place that the operating 
system gets it. 

How might we find it? We could 
cheat and look in the manual, but then 
it's always possible that the manual 
doesn't say. A more interesting 
approach would be to search for our 
program as above, finding the address 
at which it begins, and then search 
through memory for a location 
containing this address. This location 
is likely to be the system's start-of- 
program variable. 
No. 70 - March 1984 



There are two points that must be 
dealt with. First, Program 1 does not 
find us the actual start address, but 
rather something a little ways after 
that. We can get around this by simply 
looking for an address which is slightly 
before the address we found for our 
PRINT text. Second, we must consider 
how the computer actually stores 
addresses internally. The 

microprocessors that I am familiar with 
(8088, 8080/Z80, 6502) all store 
addresses in two bytes with the first 
byte containing the last eight bits of the 
number and the second byte containing 
the first eight bits. We can pick up such 
a number in a BASIC program by 
coding PEEK(A) + 256*PEEK(A + 1) 
(where A contains the address of the 
first byte of the number) . It is possible 
that your computer stores addresses 
differently, in which case you would 
have to adjust line 220 in the program 
below. If you don't know how your 
computer stores addresses, just try it as 
I have it and see what happens. 

[Ed. Note: The 6800 and 6809 are 
exceptions. They store the address with the 
high eight bits in the first byte and the low 
eight bits in the second byte.J 



Program 2 

10 PRINT 'FINDING MYSELF AT:" 

20 FOR S=0 TO 10000 

30 C1*=CHR*(PEEK(S)) 

40 IF ClfO'F" THEN 90 

50 C2*=CHR*<PEEK(S+1M 

60 IF C2*<>"1' THEN 90 

70 PRINT "FOUND MYSELF AT";S 

80 6QT0 200 

90 NEXT S 

100 END 

200 REM LOOK FOR START ADDRESS 

210 PRINT 

220 FOR P=0 TO 10000 

230 A=PEEK (P) +256*PEEK (P+l ) 

240 IF A<S-10 OR A>S THEN 260 

250 PRINT P; "CONTAINS"; A 

260 NEXT P 

270 END 



If you get several "hits", see which 
one looks most likely and play with it a 
bit. You might try doing PEEKs at the 
addresses of these variables and seeing 
what's there. Running this on the PC 
gave me two hits: one at location 48 
and another at location 862. A little 
examination showed that location 48 
contains the start address. (We'll get 
back to what is in 862 later.) 
MICRO 



Dumping a Program 

Now that we have found where the 
program is kept, we might try dumping 
it out to see how it really is stored 
internally. All we have to do is start at 
the address we found above and dump 
the next hundred bytes or so. To help 
us discern what each byte is as it is 
dumped, we can print it as both a 
number and a character (the first we get 
directly from the PEEK statement, the 
second we can get with the CHR$ 
function). On the IBM PC the program 
start address is stored at locations 
48-49, so I will use that location in the 
program below. You would, of course, 
have to substitute the appropriate value 
for your computer here. 

[Ed. Note: The Commodore 64 uses 
locations 43 and 44 - but you know that 
from Program 2. The examples have been 
modified to use this address. To change to 
another micro, simply re - define X and Y in 
line 10. The values would be 48 and 49 for 
the IBM PC.j 

Program 3: 

10 X=43:t=44 

20 S=PEEKU)+256»PEEKm 

30 PRINT "STARTING ADDRESS =";S 

100 REM START DUMPING 

110 FOR A=S TO S+100 

120 C=PEEK(A> 

130 PRINT C;"(";CHR*(C);T'; 

140 NEXT A 

150 END 

The output of this program will not 
look much like a BASIC listing, and 
not just because of those numbers 
stuck in there. Though variable names 
and the text within PRINT and REM 
statements should be recognizable, 
that may be just about it. 

There are several ways in which 
BASIC'S commonly code their 
statements. Rather than store 
keywords such as PRINT or CHR$ as 
several characters, most BASIC 
interpreters use codes from the 
character set that are not used for any 
of the regular letters, numbers, or 
symbols. There one-byte codes are 
referred to as "tokens". You should be 
able to quickly identify what token 
your computer uses for PRINT by 
looking at what comes before the 
recognizable text; to figure out other 
tokens you should study the context in 
a similar fashion and find something 
that looks consistent. We'll get back to 
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looking at tokens in a moment. 

Some BASIC'S store numbers as 
strings of digits: if this is the case with 
your computer they should be easily 
recognizable. Others store numbers in 
binary, which will force you to do some 
conversions if you want to be able to 
read what is there. 

A particularly interesting thing to 
look for is what your BASIC puts at the 
front and end of each line. The BASIC'S 
I have seen all use a zero byte to mark 
end-of-line, and have the line number 
in binary at the front. Most also put a 
link in front of the line number: a two- 
byte field which holds the address of 
the start of the next line. 

Once you have an idea of how your 
programs are stored, you might try 
making the dump more 
comprehensible. For example, you 
could determine how to find where a 
new statement begins and print your 
dump of each statement starting on a 
new line. This makes it much more 
readable. 

[Ed. Note: I took Mark's suggestion and 
wrote the following program that dumps 
lines of BASIC. If the value is a printable 
ASCII character (range 32 to 127), then it is 
printed as a character. Otherwise, it is 
output as a decimal value in parentheses. 
These values would be the tokens. The C64 
version uses some of the color and reverse 
features to make a more readable display. X 
and Y point to the program start found in 
the earlier programs.] 

Tokens 

It might be entertaining to try to get a 
complete list of all of our BASIC'S 
tokens. We could do this by writing a 
program that includes every single 
BASIC keyword and then dumping it 
out, but there is an easier way: we can 
let a program construct every possible 



token and then LIST them to tell us 
what they are. We begin the program 
with a dummy line consisting of only 
one token: REM. When we RUN the 
program this will, of course, do 
nothing, but the program will then go 
back and change the REM token, tell us 
what it changed it to, and then LIST 
that line to show us what keyword that 
token corresponds to. 

[Ed. Note: Mark's IBM PC version was 
changed to use the C64 references.] 

Program 4 

10 REM 

20 X-43iY-44 

30 S=PEEK(X)+256*PEEK(Y) 

40 T=S+4 

200 REM CHANGE TOKEN AND LIST 

210 V=129 

220 POKE T,V 

230 PRINT V 

240 LIST 10 

250 V=V+1 

260 60T0 220 

The program should print out the 
number 129 followed by a listing of line 
10: the number 10 and then the 
keyword corresponding to the token 
129. For the PC this comes out 

129 
10 END 

Unfortunately, on the PC at least, 
this is all it does. 

[Ed. Note: This works for the Apple II, but 
not the C64.] 

The problem is that the program ends 
once it finishes the list statement 
rather than going on to execute the next 
instruction and looping around. If you 
do not have this problem, count your 
blessings. For those of you who do, 
there are two ways we might overcome 



this. One way is to simply type GOTO 
250 after each token is listed to get the 
next one. [Note: if you type GOTO 250 
the variables will probably be left as 
they were when the program finished; 
if you type RUN 250 they will more 
than likely be cleared and you will end 
up poking the number one into location 
zero.] Another possibility is to put 
several dummy REM statements at the 
front of the program, poke token values 
into each of them, and then LIST. We 
will have to know where to do the 
POKEs, of course. Just as we knew 
where to put the first one by adding the 
number of bytes preceding the first 
token on a line to the program start 
address, we can find the others by 
adding the number of bytes in each line 
to the place where we did the last poke 
and looping along. For the IBM PC, the 
length of each line is 2 for the link plus 
2 for the line number plus 1 for the 
REM token plus 1 for the end-of-line 
marker (a null), which gives 6. This 
number is used in line 230. 

Program 4b 

10 REM 

20 REM 

30 REM 

40 REM 

50 REM 

40 REM 

70 REM 

SO REM 

90 REM 

100 X=43:Y=44 

110 S=PEEK(X)+256*PEEK(Y) 

120 T=S*4 

200 REM CHANGE TOKEN AND LIST 

210 FOR V-129 TO 137 

220 POKE T.V 

230 T=T+6 

240 NEXT V 

250 PRINT "129-137:" 

260 LIST 10-90 



BASIC Dump 



C64 BASIC Dump 



10 x=43:Y=44 

20 S=PEEKIX)+256*PEEK(Y) 

30 PRINT "STARTING ADDRESS = ";S 

100 REM START DUMPING 

110 FOR 1=1 TO 10 

120 P=PEEK(S)+256*PEEK(S+1)!PRINT P; 

130 Q=PEEK(S+3)*100+PEEK(S+2i:PRlNT Q; 

140 S=S+3 

150 S*S+1:R=PEEKIS) 

140 IF R>31 AND R<128 THEN PRINT CHR$tR)::G0T0 150 



170 IF RO0 THEN PRINT 
ISO PR1NT:S=S+1 
190 NEXT ! 
200 END 
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;R;")';:G0T0 150 



10 XM3:YM4 

20 S=PEEMX)+256»PEEK(Yt 
30 PRINT "STARTING ADDRESS ="|S 
100 REM START DUMPING 
110 FOR 1=1 TO 10 

120 P=PEEK(S)+256*PEEK(S+1)!PRINT "{RED} U P; 
130 Q=PEEK (S+3 ) * 100+PEEK ( S +2 ) : PRINT " (BLUE) "Q" (BLACK}"; 
140 S=S+3 

150 S=S+1:R=PEEK(S) 

160 IF R>31 AND R(128 THEN PRINT CHR*(R); : GOTO 150 
170 IF ROO THEN PRINT " (RVS) "R" (RVS0FF) " ; s GOTO 150 
180 PRINT:S=S+1 
190 NEXT I 
200 END 
MICRO No. 70 - March 1984 



By the way, if you try to run this 
program a second time, it is not likely 
to work, as you have changed the first 
few lines, most likely into syntax 
errors. You will have to re-enter the 
dummy REMs before you try to re-run 
[or you could cheat and say RUN 100). 

This program will tell us what the 
tokens 129 through 137 correspond to. 
If we want to get the full list, we could 
either add more dummy REMs and 
enlarge the loop, or we could simply 
run it several times, changing the 
boundaries of the loop each run. 

If you are wondering why I chose 
the number 129 to start with, it is 
because that begins the second half of 
the character set (1/2 * 256 possible 
character codes in an 8-bit byte + 1 
= 129) and therefore seems a likely 
place to include tokens. The first half 
most likely includes your alphabet, 
digits, and other printable symbols. 
You might try running Program 4b 
using V values less than 129 and see 
what you get. 

[Ed. Note: I am not sure why Mark did not 
start at 128. This is a valid token on the 
Apple, C64 and Flex BASIC. It way be 
different on the IBM PC] 

One final problem you may have to 
deal with: on the IBM PC, some of the 
tokens really take two bytes, a 255 
followed by something else. Also, some 
tokens mean that what follows is a 
number of some kind (one byte integer, 
two byte integer, GOTO address, etc), 
which therefore logically requires that 
something follow before the end of the 
line. In there cases, the above program 
will result in the beginning of the next 
line being "eaten" to satisfy the 
requirement for extra bytes, and from 
there on everything is a mess. If you 
run into this situation, simply put a 
few extra characters on each dummy 
statement. (And remember to change 
line 230 to keep your POKEs landing in 
the right place!) 

Another System Variable: The 
DATA Pointer 

The problem that originally led me to 
work on examining system internals 
was a BASIC program I was working on 
that included many, many DATA 
statements. My program logic was able 
to spot certain types of errors in the 
data, and I wanted it to print messages 
saying what was wrong and where it 
had found the problem. The best way to 
say "where" would be to give the line 
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number. Thus, I wanted to find where 
the system kept track of what data line 
it is looking at. 

For the IBM PC, surprise! We get 
location 862, our old friend from 
looking for start of program. When we 
were not using any DATA statements, 
it pointed to one byte before the start of 
the program. Evidently that is where it 
begins life before the first READ is 
executed. 

Of course, what I really wanted for 
my original program was the line 
number, not the address, but this can 
be found by simply tracing through the 
links at the start of each line. When we 
find the first line with a link which 
contains an address larger than the data 
pointer, it follows that the pointer 
must be aiming somewhere in the 
current line. We then pick up the line 
number and we've got it. 

Final Words 

Other interesting things to look for are 
your memory-mapped video, your own 
BASIC variables, and the system clock. 
I could go on demonstrating exactly 
how I found a couple of other system 
variables, but I think the technique 
should now be clear: whatever it is you 
may be looking for, do something 
which will set it equal to a value you 
can calculate or predict yourself, then 
search through memory for a location 
containing that value. If you find more 
than one, try to set up a different 
predictable value and do it again. If you 
do not find any, either you have made a 
mistake somewhere or the system does 
not keep any such value. 

Do not be fooled by coincidences! 
When I was first looking for my DATA 
statements, I looked for a location 
containing the line number rather than 
the address. The PC does not keep any 
such value, but I found one anyway. No 
matter what line I had my READs 
reaching, location 823 would always 
contain the line number, but when I 
tried to use it in a program it did not 
work. It turned out that what I was 
finding was some work area in which 
the system had placed my line number, 
probably preparatory to doing the IF 
test. 

In general, it is wise to try things 
out in a small program before spending 
a lot of time working from a faulty 
assumption. Which statement could no 
doubt be applied in many other 
contexts. 

The technique we use is very 
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similar to the way in which we found 
the pointer to the start of the program. 
We set up a DATA statement and 
execute a READ, so that the data 
pointer should now be pointing into 
our DATA line. We than search 
through memory for any location 
containing a value near the beginning 
of the program. We could determine 
the exact value to look for if we would 
take the time to dump the program and 
see just where everything falls, but we 
would still have to worry about 
whether the pointer would be at the 
last digit of the number just read, the 
comma, or the first digit of the next 
number, so we may just as well be lazy, 
put the DATA statement near the front, 
and figure that those lines can't take 
more than 25 bytes or so. Thus: 
Program 5 

10 READ X 

20 DATA 34,24, 34 

100 S=PEEK(48>+254*PEEK(49> 

110 FOR P=0 TO S 

120 S1=PEEK(P)+256*PEEK(P+1) 

130 IF SK=S OF SDS+25 THEN 150 

140 PRINT P; "CONTAINS" J SI 

150 NEXT P 

1670 END 

(Ed. Note: fust for fun, I wrote the following 
program to print all of the tokens on the 
C64. S is the address of the first token, 
determined by 'fooling around' with Mark 's 
programs. A sample of the printout is 
included./ 

10 S-41118: REM FROM FIND TOKEN FOR Ci4 

200 PRINT "ADDRESS NUMBER TOKEN" 

210 FOR X=128 TO 255 

220 IF PEEK (SI =0 THEN X=255:60T0 260 

230 PRINT 5,X,; 

240 IF PEEKISK128 THEN PRINT 

CHW(PEEK(S))i.-S=S+l:60T0 240 
250 PRINT CHRtlPEEK(S)-128):S=S+l 
240 NEXT X 

270 PRINT:PR1NT "END OF TOKENS" 
280 END 

RUN OF PRINT TOKENS FOR C0HH0D0RE 44 



ADDRESS NUMBER 


TOKEN 


41118 128 


END 


41121 129 


FDR 


41124 130 

• 


NEXT 

• 


• 

41361 201 


• 
• 

RIGHT! 


41367 202 


MID* 


41371 203 


60 


END OF TOKENS 
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Interface 



by Ralph Tenny 



The last column dealt with the A/D 
and D/A converters of the 
"conventional" kind. That is, they 
used resistor ladders to generate DC 
voltages proportional to a binary word. 
There are numerous other methods to 
make A/D and D/A conversions, and 
we will discuss some of them this 
time. A few A/D techniques offer 
unique advantages for making special 
measurements, and some converter ICs 
offer special advantages for low cost 
conversion. 

The Voltage-to-Frequency (V/F) 
converter produces an output 
frequency proportional to an input 
current or voltage. A typical low-cost 
unit easily measures the range from .01 
volts to 10 volts with a resolution of 
.001 V [1 mv) and linearity of 1 mv. 
That measurement range yields 
frequencies between 10 Hz and 10,000 
Hz. Note that this corresponds to a 
binary resolution of 12 bits at 10 volts. 
That resolution in most other kinds of 
technology would cost four times as 
much. Now for the major disadvantage 
- each measurement takes a full 
second! 

There are tricks to compensate for 
the slow readings, if your need to. For 
example, if you expect to measure a 
voltage close to full scale, you can 
sample for a shorter period. With a .001 
second sample, 10 volts input gives 100 
counts full scale. The catch is that the 
resolution, linearity and accuracy all 
degrade in proportion. 

If you want to measure small 
voltages, you can measure the period 
(time between two successive pulses] 
to quite good resolution, then compute 
the frequency. With the original 
calibration of 1 Hz/mv, the period for 
10 mv input would be 100 msec. If you 
use a peripheral counter in the 
computer, this measurement can be 
made to 1 usee resolution, or 100,000 
counts. Obviously, this method runs 
out of resolution at 10 volts input - it 
gives 100 counts full scale. Another 
caution with period measurement is 
that the input voltage must be heavily 
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filtered or very steady to avoid period- 
to-period variations. In general, if an 
experiment can be set up with a narrow 
range of input voltage, choose either 
frequency or period measurements for 
the most acceptable results. 

Some A/D converter technologies 
are a mix of analog and digital 
techniques. One of the first 
technologies to be developed was 



single- and multi-slope integrating A/D 
converters. Figure 1 shows the basic 
premise of single-slope integrator 
conversion. A linear ramp is compared 
against a DC voltage. The ramp is 
started at the same time as an 
oscillator,- a digital counter is allowed 
to count the number of oscillator cycles 
which occur until the ramp rises to 
equal the input voltage. The count in 



1 - 



V- 



FULL SCALE INPUT 



INPUT gOLTftGE 



-. RAMP = INPUT 

STOP CDUNTER 



D YQLTS 



'•• START RAHF 

START COUNTER 

Figure 1. Operating scheme for a single-slope 
A/D converter. 
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Figure 2. Operting concept of a dual-slope integrating A/D 
converter. A capacitor is charged by the input voltage for a 
fixed time, then discharged by a reference source. The in- 
put voltage is determined by a ratio of charge to discharge 
times. 
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the counter then is proportional to the 
DC voltage input. This is quite similar 
to the converter proposed in Figure 2 of 
the previous column |MICRO #69, 
February 1984); the difference is that 
we now are using a free-running analog 
ramp instead of a digital stair-step 
ramp. Also, the count is now in a 
digital counter instead of a memory 
location. 

Figure 2 shows the concept of dual- 
slope integration used for A/D 
conversion. During the first half of the 
operating cycle, the unknown voltage 
is allowed to charge a capacitor for a 
known period of time. In the second 
period, this capacitor is discharged by a 
reference source. The discharge time is 
compared to the standard sample time, 
and the resulting number is 
proportional to the input voltage. If it 
takes half as long to discharge the 
capacitor as it takes to charge it, the 
input is one-half of full scale. 

When evaluating A/D converters, 
several factors need to be considered. In 
past discussions we have studied trade- 
offs between accuracy and resolution. 
Cost usually is a factor, but the one 
parameter which varies most widely is 
conversion time. The previous column 
discussed the successive 



12U 



CURRENT VC^VyVfl 
SOURCE { ,r Tl_--'-.: : 

Lnast 



BITCi 







El 



INPUT 
VOLTAGE 



Parts List 

R1,R4,R5,R6 6.8 ohm 'A watt resistor 

R2 2K ohm pot 

R3 820 ohm, V* watt resistor 

R7 5.6K ohm V* watt resistor 

Current source LM334 (National Semiconductor) 

Op Amp TL092 (Ratio Shack 276-1746) 

Diodes 1 N4148 or 1 N914 

Transistor General purpose silicon NPN 

C1 01 mF capacitor 

Figure 3. Simple single-slope integrating A/D conveter. It 
requires only two I/O lines. 



C64-FORTH/79 

New and Improved 
for the Commodore 64 

C64-Forth/79 T " for the Commodore 64-$99.95 

• New and improved FORTH-79 implementation with 
extensions. 

• Extension package including lines, circles, scaling, 
windowing, mixed high res-character graphics and sprite 
graphics. 

• Fully compatible floating point package including 
arithmetic, relational, logical and transcendental functions. 

• String extensions including LEFTS, RIGHTS, and MID$. 

• Full feature screen editor and macro assembler. 

• Compatible with VIC peripherals including disks, data set, 
modem, printer and cartridge. 

• Expanded 167 page manual with examples and application 
screens. 

• "SAVE TURNKEY" normally allows application program 
distribution without licensing or royalties. 

(Commodore 64 is a trademark of Commodore) 

TO ORDER 

-Disk only. 

-Check, money order, bank card, COD's add $1.65 

-Add $4.00 postage and handling in USA and Canada 

-Mass. orders add 5% sales tax 

-Foreign orders add 20% shipping and handling 

-Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street ^^^ m 

Canton, MA 02021 VISA 

(617) 828-1209 ^^™ 






NOW! 
FULL POWER ASSEMBLY LANGUAGE! 

GET THE VERSATILITY OF INDEPENDENTLY 
ASSEMBLED RELOCATABLE SUBROUTINES WITH A 

RELOCATING LINKING LOADER 

• For use with APPLE DOS TOOLKIT ASSEMBLER REL files 

• Relocate and link 1 to 255 REL files into a BRUNable file 

• Convenient specification of relocation parameters (output 
file, start address, REL file names, . . .) in text control file 

• Comprehensive error reporting and recovery 

• Module and entry point memory maps to aid debugging 

• Complete with user manual and disk example 

• FAST — ten 256 byte REL files done in 30 SECS 

RELOCATING LINKING LOADER W/MANUAL $49.95 

MANUAL $ 4.50 

ALSO — SECURE SENSITIVE DATA FILES 

ENCRYPT/DECRYPT ANY FILE WITH 

FAST-CRYPT 

An efficient assembly language implementation of the DES 

(Data Encryption Standard) algorithm for Apple or IBM 
FAST-CRYPT W/MANUAL $34.95 

Kiwi Software does NOT copy protect its products. 
Send check or money order (N.J. residents add 6% sales tax). 

Kiwi Software Company 

P.O. BOX218M 
PLAINSBORO, N.J. 08536 

System requirements: 

APPLE II, II+, Me (or compatible) DOS 3.3 W/48K 

IBM-PC, XT (or compatible) PC, MS-DOS W/64K 

IBM" IBM Corp.; APPLE" Apple Computer, Inc.; MS-0OS" Microsoft Corp. 
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approximation converter. This 
technology is the fastest of the lower 
cost technologies. A typical converter 
will complete a conversion in about 50 
usee. We just noted that F/V converters 
require close to a second to make a full- 
resolution measurement. Integrating 
converters can typically make a 
conversion in 1/10 to 1/100 second. 

Let's look at some real hardware! 
Beginning with this column, some of 
our interfacing experiments will be 
done on the Commodore 64. There are 
several plug-in peripherals available for 
the C64. If you have one, you can make 
the necessary translation from the 
pinout I will describe to your own 
setup. 

If you plan to do any 
experimentation with your C64, you 
should purchase the Commodore 64 
Pwgrammer's Reference Manual. This 
book is about an inch think and is 
jammed with crucial assembly- 
language and hardware information, in 
addition to a lot of information on 
BASIC programming. In the I/O 
section you can find pinout 
information on the User port. 

I made a simple adapter to give easy 
access to the C64 User port, and will 
use it for all simple interfacing projects; 
The major hurdle to building your own 
adapter is to find a connector which fits 
on the User port. The User port is a 
card edge protruding from the C64 case 
at the left rear. You need a PC card edge 
connector with double readout (12/24) 
pins on .156" spacing. Either solder 
eyelet or wire-wrap type pins are 
acceptable. The part number for one 
such socket manufactured by TRW is 
251-12-50-171. I cannot find this 
connector type in the mail-order 
catalogs I have, but it should be 
available from electronic parts 
distributors. If you don't mind a little 
handwork, you can cut up a Radio 
Shack #276-1551. 

To modify the Radio Shack 
connector, use a fine-tooth saw to cut 
off both lugs. Preserve one end of the 
connector body intact, and count over 
13 pin positions. Saw the connector off 
in the middle of the 13th pin position. 
Note that the User port connector has 
slots between pins 1-2 and 10-11. Cut a 
small piece of 1/64" plastic or 
fiberboard to fit in between the pins of 
the connector at those positions. With 
these keys in place, you won't be able 
to push the connector on unless it is 
properly lined up. NEVER plug or un- 
plug any C64 connectors with power 
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Listing 1 



MIS PRD6RAH EXERCISES A SINGLE-SLOPE 
A/D CONVERTQR WHICH IS DRIVEN BY IHE 
C64 USER PORT. IT USES TWO I/O LINES 
AND BOTH TIMERS TQ CONVERT AN ANALOG 
INPUT TO AN EQUIVALENT COUNT STORED IN 
A ZERO PAGE BUFFER. 

EQUATES 





PA6E ZERO 


007F 


DELYLO 


EQU $7F 


007E 


DELYHI 


EQU $7E 


007D 


CNTLQ 


EQU $7D 


007C 


CNTHI 


EQU $7C 




CIA CONTROLLER 


DD01 


BPORT 


EQU JDDOl 


DD03 


BDDR 


EQU IDD03 


DD04 


THRflLO 


EQU IDD04 


DD05 


TMRAHI 


EQU IDD05 


DD06 


THRBLQ 


EQU IDDOA 


DD07 


TMRBHI 


EQU IDD07 


DDOE 


TMRACR 


ESU IDDOE 


DDOF 


THRBCR 


EQU IDDOF 



cooo 

C000 78 
C001 AO 
C003 8C 
COOA A2 
C008 8E 
COOB A2 
GOOD AO 
COOF A9 
C011 8D 
C014 3E 
C017 8E 
C01A 85 
COIC 84 
CO IE 8D 
C021 8C 
C024 AO 
C026 8D 
C029 8C 

C02C 2C 
C02F 10 
C031 8D 
C034 8D 
C037 A9 
C039 3D 
C03C AD 
C03F AE 
C042 85 
C044 9i 
C04& AO 
C048 A2 
C04A A5 
C04C 20 
C04F A5 



START 



04 

04 DD 
01 

03 DD 
FF 
41 
00 

05 DD 

06 DD 

07 DD 
7F 

7E 

05 DD 
OF DD 
08 

01 DD 
0E DD 

01 DD 
FB 

OE DD 
OF DD 
01 
01 DD 

06 DD 

07 DD 
7D 

7C 

00 

00 

7C 

5F CO 

7D 



LOOP 



0R6 IC000 



SEI 


STOP INTERRUPTS 


LDY 1*04 


LSB FOR TIME A 


STY THRAL0 




LDX «$01 


INIT PORT LINES 


STX BDDR 


BIT OUTPUT 


LDX **FF 


INITIAL TIMER B VALUES 


LDY «41 


TIMER B MODE 


LDA *00 


START RAMP, STOP TIMER 


STA TMRAHI 


FINISH SETTING TIMER A 


STX THRBLO 


INIT TIMER B COUNTS 


STX TMRBHI 




STA DELYLO 


LOAD DELAY 


STY DELYHI 




STA TMRAHI 


COMPLETE INIT OF TIMER A 


STY THRBCR 


START TIMER B 


LDY *08 


MORE FOR TIMER A 


STA BPORT 


START RAMP 


STY TMRACR 


START TIMER A 


BIT BPORT 


TEST FOR RAMP EQUAL TO INPUT 


BPL LOOP 


SPIN UNTIL DONE 


STA TMRACR 


KILL TIMER B CLOCK 


STA TMRBCR 


ALSO TIMER B 


LDA 101 


TURN OFF RAMP 


STA BPORT 




LDA TMRBL0 


READ ACCUMULATED COUNT 


LDX TMRBHI 




STA CNTL0 


SAVE COUNTS 


STX CNTHI 




LDY 100 


DISPLAY COLOR CODE 


LDX *00 


SET INDEX POINTER 


LDA CNTHI 


6ET DATA 


JSR OUTPUT 


SHOW IT 


LDA CNTL0 


NtX 1 Ufi 1 A (Continued on next page) 
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on! 

After making the keyways fit 
properly, I bent each connector pin 
toward the pin directly opposite until 
the tips of the pins were about 1/16" 
apart. Now, any breadboarding circuit 
card (such as Radio Shack #276-152) 
will slide between the pins. Be sure to 
align the board in the connector so it 
does not overlap the cassette port. 
Solder each connector pin to an edge 
pin on the board and clean off all rosin 
residue completely. The final step is to 
put a 24 pin socket on the board and 
connect it to the socket so that the 
User port lines can be extended with a 
DOP jumper such as the Jameco 
DT24-1-24. With this accessory, you 
can swap out any number of special 
boards. It is helpful if you use a specific 
order in making the connections 
between the socket and plug. The 
pinout I used was: 



PORT 
PIN 



50CKET FUNCTION 



1 


1 


Ground 


2 


■1 


+ 5 VDC 


3 


3 


RESET 


4 


4 


CNT1 


r 


5 


SP1 


b 


6 


CNT2 


1 


7 


SP2 


8 


8 


PC2 


9 


9 


ATN 


10 


10 


9 VAC 


11 


11 


9 VAC 


12 


12 


Ground 


A 


24 


Ground 


B 


23 


FLAG2 


C 


22 


PBO 


D 


21 


FBI 


E 


20 


PB2 


F 


19 


PB3 


H 


18 


PB4 


J 


17 


PB5 


K 


16 


PB6 


L 


15 


P87 


11 


14 


PA2 


N 


13 


Ground 



Note that this particular pinout puts a 
circuit common (ground) connection at 
each corner of the 24 pin socket and 
gives redundant ground connections for 
better noise control. Also, the 9 port 
pins are grouped together in a logical 
order. The CNT, SP, FLAG and PC 
lines are special functions of the 6526 
Complex Adapter Interface (CIA) and 
will be dealt with in a later column. 



C051 20 5F CO 

C054 C6 7F 
C056 DO FC 
C058 C6 7E 
C05A 00 F8 
C05C 4C 00 CO 

C05F 48 
C060 4A 
COM 4A 
C062 4A 
C063 4A 
C064 20 74 CO 
C067 20 81 CO 
C06A 68 
C06B 29 OF 
C06D 20 74 CO 
C070 20 ai CO 
C073 60 

C074 C9 0A 
C076 90 04 
C078 38 
C079 E9 09 
C07B 60 

C07C 18 
C07D 69 30 
C07F DO FA 

C081 9D 70 07 
C084 98 
C085 9D 70 DB 
C088 E8 
C089 60 
C08A 00 

C08B 



DELAY1 



JSR OUTPUT 

DEC DELYLD j 
BNE DELAY 1 
DEC DELYH1 
BNE DELAY1 



SECOND DELAY 



JMP START 



OUTPUT PHA 



C0NVRT 



EXIT 



NUMBER 



DISPLY 



LSR 

LSR 

LSR 

LSR 

JSR CQNVRT 

JSR DISPLY 

PLA 

AND t$0F 

JSR CONVRT 

JSR DISPLY 

RTS 

CMP #$0A 
BCC NUMBER 
SEC 

SBC 109 
RTS 

CLC 

ADC 1*30 
BNE EXIT 

STA $0770, X 

TYA 

STA *DB70,X 

INK 

RTS 

BRK 

END 



LOOP FOREVER 



; SAVE DATA 

: 6ET HI NIBBLE 



MAKE DISPLAYABLE CHARACTER 

SHOW IT 

GET DATA 

MASK TO L0 NIBBLE 



ALPHA OR NUMERIC? 

- 9 

A - F 

MAKE IT C64 SCREEN CODE 



CONVERT TO ASCII 



PUT IN SCREEN BUFFER 
SET CHARACTER COLOR 
PUT IN COLOR RAM 
BUMP INDEX 



You will note from the progra mm ing 

example below that the CIA port pins 
are easier to program than PLA lines 
previously discussed in this column. 
Also, the schematics shown below skip 
specific pinout details by showing 
direct connection between the port 
pins and the external circuit. 

Figure 3 shows a rudimentary 
single-slope integrating converter. It 
isn't very accurate ( + or - 2% linearity 
between .5 volts and 5 volts) but it 
works well enough for 
experimentation. One resistor is 
marked (*); it is needed to restrict input 
level to the C64. If the circuit is used 
with CoCo, it should be removed. 

The circuit cost is quite low, and 
the driver (Listing 1) reveals a lot about 
assembly language programming of the 
6526 CIA. For CoCo, drive the control 



line (BITO) with SERIAL OUT and 
connect BIT7 to CoCo's DC IN line. 
Program CD as an interrupt and 
eliminate the DELAY block in the flow 
chart shown in Figure 4. Figure 4 is the 
conversion flow chart for the converter 
of Figure 3. Adjust the sense of the 
control signals as necessary for your 
computer,- BITO must be low for the 
ramp to run and BIT7 switches high 
when ramp coincidence occurs. 

The premise of this experiment is 
that two I/O lines can interface with a 
simple A/D converter if the data 
conversion is internal to the computer. 
This makes the circuit work with an 
unmodified CoCo, and multiple A/Ds 
can be driven by the C64 User port. 
Data output on the C64 uses a small 
"window" in the lower left part of the 
screen. Binary data is converted to 
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ASCII |0-9) or to C64 screen characters 
(A-F). Writing the converted characters 
to $0770 thru $0773 puts data in the 
screen buffer, while $DB70 thru $DB73 
are the corresponding Color RAM 
locations which make the data visible 
on the screen. Note also that writing 
$07 to the 6526 Control Register (lines 
37-38 in Listing 1] sets Timer A or 
output on PB6; $41 sets Timer B for 
input on CNT2 (lines 28-29). Thus, 
PB6 and CNT2 must be connected by a 
jumper. 

Once the circuit is built, vary the 
values of R2 and R3 to make the value 
shown on the screen vary between 
$FFFF for zero input and $FF80 for 5 
volts. This accomplishes two thing: the 
circuit accuracy does not need more 
than 7 bits of resolution, and the 
number representing the voltage is 
restricted to a single byte for easier 
conversion to "real" numbers. Since 
this converter has a slightly non-linear 
output, the "classical" software 
correction would be to calibrate the 
circuit at (perhaps) ten points, and 
create a translation table. This 
technique uses a list of data (numbers 
read from the screen) and the 
corresponding voltage. So long as the 
non-linear output of a converter (or a 
sensor) is a smooth curve, a lookup 
table can noticeably increase accuracy. 
One other note: in common with many 
converters, this converter cannot 
convert negative input voltages. 



Ralph Tenny may be corresponded with at 
P.O. Box 545, Richardson, TX 75080 





SET UP 
REGISTERS 














STOP 
INTERRUPTS 






.;■'" RfiHF -•: 

Y 












START 
RftflP 


















■ 










INCREMENT 
CqtJNTER 




SET DAT* 
TD ZERO 
















DELRy 






r 


x 

J ..•••'" RHHP \ 












TURN OFF 
RfiHP 
























DI SPLHy 
PROCESSING 





Figure 4. Flow chart for controlling A/D converter in Fig. 3. 
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FOR APPLE II PLCJS, FRANKLIN, APPLE He 

Font Down Loader 

Expand the capacity of your printer hundreds of times 

Load custom fonts into your Apple® Matrix Printer, ProwritenM 
8510A, OKI® Microline 92, 93, 84 Step II, and Epson® FX and use 
them with virtually every word processor to turn your printer into a 
custom typesetter. After the fonts are loaded, they will stay in your 
printer until it's turned off. A font editor is also provided to allow you to 
create your own graphics, text, foreign language letters, math and 
electronics symbols to load into your printer. On-Disk (Specify Printer) 
s 39 00 

Hew improved versions with drivers forGrappler. Pkaso. Wizard and most other intelligent parallel boards. 



,+ $100 REWARD^ 

Submit the best or most unique 
font using the above software and we 
will make you SlOO richer. Other 
prizes for the first 25 runners up. 




micro umrE 

P.O.Box 113 
Pompton Plains, N.J. 

Dealer and Distributor inquiries invited CALL (201) 000-90/7 



"There's got to be a better way lo load fonts!" 
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Commodore Compass 




by Loren Wright 



New Computers and Peripherals 

At the January Consumer Electronics 
Show in Las Vegas, Commodore 
Business Machines announced two 
new computers and a number of 
peripherals. The two computers are the 
264 and V364. Both include 64K of 
RAM (60K accessible for BASIC], the 
7501 processor, built-in software 
capabilities, and four separate cursor 
keys. The specifications are similar to 
those of the Commodore 64, but it is 
doubtful that there will be much 
compatibility. There are 16 colors, 
each available in 8 luminances [similar 
to Atari], Only two music voices, no 
sprites, and only three graphics modes 
are available. The new BASIC 3.5 will 
include commands for graphics and 
sound, and there is a screen window 
capability. Also included is a built-in 
machine-language monitor. 

Built-in software means that the 
programs are actually in ROM inside 
the computer, instantly available. 
Special models of the 264 will include 
The 264 Magic Desk, The 264 Word 
Processor, or an integrated package 
called The 264 3-PLUS-l. 

The V364 includes voice synthesis 
capability, and extra commands in 
BASIC to support it. A 250-word 
vocabulary is built in, but you can add 
more words by loading them from disk 
or cassette. The V364 also includes a 
19-key numeric keypad. 

I am concerned that these machines 
use a 7501 processor. That means that 
Commodore will once again be 
introducing machines in the absence of 
compatible software, in spite of 
Commodore's assurance that a wide 
variety of software will be available at 
introduction. The lack of compatibility 
with the Commodore 64 is also 
unfortunate. It is quite possible that 
these machines, like the C128, may 
never make it to market. We shall see. 

I doubt that these products will 
No. 70 - March 1984 



have any immediate impact on the 
C-64. It has been too successful for 
even Commodore to consider 
abandoning. 

Peripherals announced at CES 
include a new disk drive (the 1542), a 
60 cps dot-matrix printer (MPS 802), a 
color dot-matrix printer (MCS 801], 
and a daisy wheel printer (DPS 1101 J, 
all compatible with VIC, C64, and the 
two new computers. For the two new 
computers only are the SFS 481 fast 
disk drive, and the 1531 cassette drive. 

Magic Voice is a voice synthesis 
cartridge for the Commodore 64 that 
includes a vocabulary of 235 phrases. 
More phrases can be loaded from disk 
or cassette. The Gorf and Wizard of 
Wor cartridges will be offered as talking 
cartridges, with more to come later. 
This unit adds capabilities similar to 
those included with the V364, but 
control will have to be with less-than- 
convenient BASIC V2 commands and 
machine language. 

Jack Tramiel Resigns 

Jack Tramiel, the founder and driving 
force of Commodore, has resigned, 
apparently in an attempt to make 



Commodore's management more 
efficient and structured. In his 
statement he cited personal reasons, 
but there is speculation that he was 
forced out. According to some sources 
this is the best thing that could happen 
to Commodore, but according to others 
it is the worst. I tend to think a little of 
both. 

Jack has shown an incredible ability 
to think on his feet, making sudden, 
sweeping and unpredictable changes. 
His aggressive pricing policies have 
eliminated Texas Instruments from the 
home-computer market, and seriously 
hurt Atari, Apple, Timex-Sinclair, and 
others, putting Commodore at the top 
of the low-end microcomputer market. 
Middle and especially upper 
management has undergone so many 
changes that I've stopped keeping 
track. 

Without Tramiel, Commodore will 
surely exhibit more stability, and 
probably more conservatism. Perhaps a 
higher priority will be assigned to 
things like customer and dealer 
support. However, Commodore may 
miss Tramiel 's sixth-sense ability to 
react quickly and effectively to changes 
in the microcomputer market. 



Listing 1 

19000 REM READ IN ML PROGRAM 

19010 MEM = 49152 : REM ADDRESS IC000 

19020 READ U 

19030 IF it < 256 THEN POKE MEN,XX:MEM = NEM+l:GOT0 19020 

19040 RETURN 

19500 DATA 0,38,1,32,52,192,32,80,192,32,65,192,32,80,192,173 

19510 DATA 2,192,240,9,172,1,192,32,52,192,32,147,192,96,32,52 

19520 DATA 192,32,104,192,32,65,192,32,104,192,172,0,192,173,2,192 

19530 DATA 240,235,208,227,173,24,208,41,240,74,74,133,252,133,254,208 

19540 DATA 6,169,216,133,252,133,254,169,0,133,251,169,1,133,253,96 

19550 DATA 172,0,192,136,177,253,145,251,200,204,1,192,144,246,32,127 

19560 DATA 192,165,251,201,232,208,233,96,172,1,192,177,251,145,253,136 

19570 DATA 204,0,192,16,246,32,127,192,165,251,201,232,208,234,96,165 

19580 DATA 251,24,105,40,133,251,133,253,230,253,165,252,105,0,133,252 

19590 DATA 133, 254, 96,152, 133, 253, 160,24, 142, 0,169, 32,129,253, 136, 48 

19600 DATA 15,24,165,253,105,40,133,253,165,254,105,0,133,254,208,234 

19610 DATA 96,256 
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Sideways Screen Moves 












Listing 1 is a basic-loader version of a 


Listing 2 










lateral screen-move routine. A SYS 




; SIDE SCROLL 


C054 Bl FD LL0QP LDA (PTRBU 


49155 instruction moves the entire 




j L0REN MIGHT 


C056 91 FB 


STA (PTRA),Y 


screen left one character and a SYS 




; 20 FEB 


1984 


C058 C8 


INY 


49182 moves it right. 








C059 CC 01 CO 


CPY RCOL 


What good is such a routine? One is 


0400 


' SCRMEM 


ESU $400 


C05C 90 F6 


BCC LL0QP 


in a screen editor, such as the one 


D018 


VICHCR 


ESU ID018 


C05E 20 7F CO 


JSR BUHPRH 


published in the November, 1983 issue 


D900 


CLRHEH 


ESU $0900 


C061 A5 FB 


LDA PTRA 


of MICRO (66:28). Let's say you have 




■ 




C063 C9 E8 


CMP i*E8 


carefully prepared a design on the 


0OFB 


PTRA 


ESU $F8 


C065 DO E9 


BNE MVLEFT 


screen, and you want to center it. It's 


00FD 


PTRB 


ESU $FD 


C067 60 


RTS 


easy if you can move the entire screen 




• 








over. 


COOO 




0R6 IC000 


C068 AC 01 CO 'HVRGHT LDY RCOL 


The Commodore 64 offers a 




i 
i 




C06B Bl FB RL00P LDA (PTRA).Y 


smooth-scrolling feature, whereby the 


C000 00 


LCOL 


BYT 


C06D 91 FD 


STA (PTRBU 


entire screen can be moved in any 


C001 26 


RCOL 


BYT 38 


C06F 88 


DEY 


direction in single-pixel increments. 


C002 01 


FLA6 


BYT 1 


C070 CC 00 CO 


CPY LCOL 


To make this look good, a number of 




■ 
P 




C073 10 F6 


BPL RL00P 


things have to happen. The screen can 


C003 20 34 CO 


LIMIT 


JSfi SCRSET 


C075 20 7F CO 


JSR BUMPRN 


be shrunk from 40 columns to 38, and 


C006 20 50 CO 




JSR MVLEFT 


C078 A5 FB 


LDA PTRA 


from 25 rows to 24. This provides a 


C009 20 41 CO 




JSR CLRSET 


C07A C9 E8 


CMP l*EB 


hidden area where the new characters 


C00C 20 50 CO 




JSR MVLEFT 


C07C DO EA 


BNE HVR6HT 


can be assembled before being scrolled 


C00F AD 02 CO 




LDA FLA6 


C07E 60 


RTS 


on. However, when the screen reaches 


C012 F0 09 




BE9 QUIT 


i 




the 8-pixel limit of its fine scrolling 


COM AC 01 CO 




LDY RCOL 


C07F A5 FB ' BIJMPRW LDA PTRA 


capability, your programming must 


C017 20 34 CO 


SPCJHP 


JSR SCRSET 


C081 18 


CLC 


take over. The entire screen has to be 


C01A 20 93 CO 




JSR SPC1N 


C082 69 28 


ADC 140 


shifted one character in the direction of 


C01D 60 


SUIT 


RTS 


C084 85 FB 


STA PTRA 


the scroll-another use for my routine! 




■ 




C086 85 FD 


STA PTRB 




C01E 20 34 CO 


RINIT 


JSR SCRSET 


C088 E6 FD 


INC PTRB 




C021 20 68 CO 




JSR HVR6HT 


C08A A5 FC 


LDA PTRA+1 


The routine is parameter driven. 


C024 20 41 CO 




JSR CLRSET 


C08C 69 00 


ADC 10 


Three bytes at the beginning of the 


C027 20 6S CO 




JSR HVR6HT 


C08E 85 FC 


STA PTRA+1 


program control it: LCOL (49152) is 


C02A AC 00 CO 




LDY LCOL 


C090 85 FE 


STA PTRB+1 


the left-hand column to be moved; 


C02D AD 02 CO 




LDA FLA6 


C092 60 


RTS 


RCOL (49153) is the right-hand 


C030 F0 EB 




BEQ QUIT 


i 




column to be moved; and FLAG 


C032 DO E3 




BNE SPCJHP 


C093 98 SPCIN TYA 


(49154) determines whether to fill the 




■ 




C094 85 FD 


STA PTRB 


vacated column with spaces [non-zero 


C034 AD 18 DO 


SCRSET 


LDA VICHCR 


C096 A0 18 


LDY 124 


value) or to leave it as is. LCOL and 


C037 29 F0 




AND 


C098 A2 00 


LDX 10 


RCOL must be in the range to 39 and 






#Z1 11 10000 


C09A A9 20 SLOOP LDA 1*20 


RCOL must be greater than LCOL. In 


C039 4A 




LSR 


C09C 81 FD 


STA (PTRB,)() 


addition, on a left move LCOL must be 


C03A 4A 




LSR 


C09E 88 


DEY 


1 or greater, and on a right move RCOL 


C03B 85 FC 




STA PTRA+1 


C09F 30 OF 


BMI DONE 


must 38 or less. The values in RCOL 


C03D 85 FE 




STA PTRB+1 


C0A1 18 


CLC 


and LCOL will stay the same, so you 


C03F DO 06 




BNE L0HSET 


C0A2 A5 FD 


LDA PTRB 


can repeat calls without resetting them 








C0A4 69 28 


ADC 140 


each time. 


C041 A9 D8 


CLRSET 


LDA /CLRHEH 


C0A6 85 FD 


STA PTRB 


A little more on fine scrolling. It 


C043 85 FC 




STA PTRA+1 


C0A8 A5 FE 


LDA PTRB+1 


doesn't work quite the way it should. 


C045 85 FE 




STA PTRB+1 


C0AA 69 00 


ADC 10 


Switching from one end of the fine 




i 




C0AC 85 FE 


STA PTRB+1 


scrolling range to the other is so slow 


C047 A9 00 


L0NSET 


LDA 10 


C0AE DO EA 


BNE SLOOP 


that it results in a noticeable screen 


C049 85 FB 




STA PTRA 


COBO 60 DONE RTS 


jump. John Heilborn (Commodore 64 


C04B A9 01 




LDA tl 


i 




Graphics, Compute Books, 1983) 


C04D 85 FD 




STA PTRB 


C0B1 


END 


resorts to using duplicate areas of 


C04F 60 




RTS 






screen memory. Everything is written 




i 








on two screens and the two are 


C050 AC 00 CO 


NVLEFT 


LDY LCOL 






switched back and forth. I certainly 


C053 88 




DEY 




JMCftO 


hope there is a better way. My routine 












will work with the smooth scrolling 












feature, but without some further 












refinements it will be far from smooth. 
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Now you can doT ;rno$I 



You'll 
Receive: 




eight projects pixel 
is a<^bfTip 



^ MICRO CalC... a miniature spread- 
sheet program that makes complex, repetitive 
calculations a breeze. 



•^►' MASTER. ..a guessing game that teaches 
programming with random numbers and flags. 



^-VIC ClOCk.. .to teach you ON..GOSUB function 
and character graphics. 






w^mmi 



^fk-tf'iK® 



^^ B R EAK-U P.. .a popular game that also teaches how 

animation is achieved with PEEKS and POKES to screen memory. 



Use thfs coupon or the postage paid card in this issue to order. 

MICRO Books P.O. Box 6502, Chelmsford, MA 01824 



D YES, please rush . 



copies of MASTERING YOUR VIC-20 (w/cassette), 



at only $19.95 per copy (plus $2.00 s/h, MA res. add 5% sates taxjt 



My payment of $_ 



is enclosed. I'm paying by D Check □ MO 

D VISA □ MC 



NAME. 



ADDRESS 
CITY 



STATE. 



ZIP 



CREDIT CARD #_ 



.EXP. DATE 



Allow 6-8 weeks for delivery. 



■^^PIUS... music programming, 
string manipulation, sorting 
demonstrations, and more. 

Each Program 

Worth the Price 

of the Book! 

Order your copy of 

MASTERING 
YOUR VIC-20 

Today! 
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On Multiplication 

The 6809 Versus 

the 6502 



* 



*/ 



* 



8 x 8 = 64 



<r 



by Cornells Bongers 



Although it took some time, there is 
now finally a 6809 board (the 
REHAFLEX board) that works on both 
the Apple II and the Basis 108. This 
board is downwards compatible with 
the well known Mill Board (the main 
difference being an extensive memory 
mapping option, so that it supports the 
Apple Flex as well as the Apple OS-9 
operating system). 

When the board arrived, I 
enthusiastically started to learn 6809 
machine language and I readily 



encountered the MUL instruction. 
With this instruction, two bytes stored 
in the A- and B -accumulator can be 
multiplied and the result is stored in 
the 16 bit D-accumulator. The latter is 
not a separate accumulator (low 
byte), but consists of the A- accumulator 
(high byte) and the B-accumulator (low 
byte), respectively. Since the 6502 
lacks a MUL instruction, it seems an 
interesting experiment to substitute a 
6809 floating point [FP) multiplication 
routine for the Applesoft 6502 FP 



Figure 1 








[BONGER-l.LST] 










DISASSEMBLY DF APPLESOFT'S 




FP MULTIPLICATION ROUTINE 


009E 


MFPM 


EBU *9E 


; MANTISSA MAIN FP ACC 


00A6 


SFPM 


equ m 


i MANTISSA SEC FP ACC 


0062 


PROD 


EQU $62 


j MANTISSA OF PRODUCT 


OOAC 


EXTB 


EQU *AC 


; EXTENSION BYTE 


E8DA 


SHIFT 


EQU IE8DA 


i FAST SHIFT ROUTINE 


EAOE 


EXPO 


EQU IEA0E 


; DETERMINE EXPONENT/SIGN 


EAE6 


NORM 


EQU *EAE4 


; NORMALIZE ROUTINE 


E9S2 




ORS IE982 




E9S2 00 03 




BNE DOIT 


; BRANCH IF NON-ZERO EXPONENT 


E984 4C E2 E9 




JMP RETURN 


; ELSE, RETURN TO CALLER 




NOTE THAT THE STATEMENTS ABOVE 




CAN BE REPLACED BY: 


BEQ RETURN 
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multiplication routine, in order to 
speed things up a bit. I was especially 
motivated to undertake this 
experiment after I noticed how quickly 
FP multiplications are done in 
BASIC09. This article describes the 
result of the experiment and present a 
general and a special purpose 
multiplication routine for the 6809. 



FP Multiplication with the 6502 

The Applesoft FP multiplication 
routine starts at $E982. Prior to 
invocation, the main floating point 
accumulator (MFP, at $9D-$A1 and the 
extension byte at $AC) and the 
secondary floating point accumulator 
(SFP, at $A5-$A9) must have been 
loaded with the numbers that have to 
be multiplied. Furthermore, the value 
of the MFP exponent must be loaded in 
the 6502 accumulator just before the 
subroutine call to $E982 is issued. (For 
more details see: In the Heart of 
Applesoft, MICRO No. 33, February 
1981). The routine (see Figure 1) starts 
with a BNE instruction. This has the 
effect that the multiplication is only 
carried out if the MFP differs from zero. 
A zero MFP exponent indicates that the 
whole number is zero and, in that case, 
control returns to caller immediately. 
The (preliminary) value of the 
exponent of the product and the sign of 
the mantissa are determined by the 
subroutine at $EAOE, which is called 
No. 70 - March 1984 



at $E987. Next, the multiplication of 
the mantissas is done. It is this part of 
the multiplication routine that is best 
suited for 6809 code substitution. As 
can be seen from Figure 1, locations 
$62-$65 are initialized to zero first. 
These locations will further be referred 
to as the 'product accumulator'. The 
product accumulator is used to build up 
the product and when the mantissa 
multiplication is completed, it is 
transferred to the MFP. The MFP is 
then normalized and control returns to 
caller. 



Broadly speaking, the mantissa 
multiplication is performed by 
examining the bits of the MFP 
mantissa (further to be called the 
MFPM) one by one, beginning with the 
last bit of the extension byte ($AC|. If a 
bit is set, the SFPM is added to the 
product accumulator and next, the 
product accumulator is shifted one bit 
to the right (i.e., divided by two). If the 
bits is not set, only the shifting to the 
right takes place (thus no adding]. The 
actual code of the routine consists of a 
main driver and a subroutine. The 



E987 20 OE EA 


DOIT 


JSR EXPO 


i DETERMINE NEN EXPO/SIGN 


E98A A9 00 




LDA H00 


; IMIT PRODUCT ACC TO 


E98C 85 62 




STA PROD 




E98E 85 63 




STA PR0D+1 




E990 85 64 




STA PR0D+2 




E992 85 65 




STA PROD+3 




E994 A5 AC 




LDA EXTB 


: START WITH EXTENSION BYTE 


E996 20 80 E9 




JSR MANMUL 


; AND MULTIPLY WITH SFPM 


E999 A5 Al 




LDA MFPM+3 




E99B 20 B0 E9 




JSR MANMUL 




E99E A5 A0 




LDA MFPM+2 


; DO OTHER BYTES NEXT 


E9A0 20 60 E9 




JSR MANMUL 




E9A3 A5 9F 




LDA MFPM+1 




E9A5 20 B0 E9 




JSR MANMUL 




E9A8 A5 9E 




LDA MFPM 




E9AA 20 B5 E9 




JSR NANMUL1 




E9AD 4C E6 EA 




JMP NORM 


i NORMALIZE AND EXIT 


E9B0 DO 03 


' MANMUL BNE HAMULI 


; BRANCH IF BYTEO 


E9B2 4C DA EB 




JMP SHIFT 


S ELSE, SHIFT FAST 


E9B5 4A 


MANMUL 1 LSR 


j GET LAST BIT IN CARRY 


E9B6 09 80 




0RA #$80 


; SET FIRST BIT 


E9B8 A8 


LOOP 


TAY 


; SAVE IN Y-REG 


E9B9 90 19 




BCC N0ADD 


; OMIT ADD IF BIT NOT SET 


E9BB 18 




CLC 




E9BC A5 65 




LDA PR0D+3 


j ADD SFPM TO PRODUCT ACC 


E9BE 65 A9 




ADC SFPM+3 




E9C0 85 65 




STA PROD+3 




E9C2 A5 64 




LDA PROD+2 




E9C4 65 A8 




ADC SFPM+2 




E9C6 85 64 




STA PROD+2 




E9C8 A5 63 




LDA PR0D+1 




E9CA 65 A7 




ADC SFPM+1 




E9CC 85 63 




STA PR0D+1 




E9CE A5 62 




LDA PROD 




E9D0 65 A6 




ADC SFPM 




E9D2 85 62 




STA PROD 




E9D4 66 62 


N0ADI 


) ROR PROD 


; DIVIDE PRODUCT ACC BY 2 


E9D6 66 63 




ROR PR0D+1 




E9D8 66 64 




ROR PROD+2 




E9DA 66 65 




ROR PROD+3 




E9DC 66 AC 




ROR EXTB ; 


EXTB * LAST BYTE PROD ACC 


E9DE 98 




TYA ; 


3ET (SHIFTED* BYTE MFPM 


E9DF 4A 




LSR i 


SHIFT ONCE AGAIN 


E9E0 DO DA 




BNE LOOP | 


.OOP 8 TIMES 


E9E2 60 RETURN 


RTS 





main driver loads the bytes of the 
MFPM, one by one, in the 6502 
accumulator (beginning with the last 
byte] and calls the subroutine at 
$E9BO. This subroutine handles the bit 
examination and builds up the product 
accumulator. Note that if the 
subroutine is entered with the zero flag 
set, indicating that the byte is zero, 
control is transferred to location 
$E8DA. At this address resides code 
that shifts the product accumulator one 
byte to the right (i.e., a division by 
256). This obviously goes faster than 
shifting the product accumulator eight 
times on bit level. If the byte is not 
zero, the process above (adding and 
shifting) takes place. Note the clever 
method that is used to create a loop 
that is executed 8 times (see the 
instructions at $E9B5-$E9B6 and 
$E9DE-$E9EO). 

The time critical part of the code 
($E9BC-$E9DC) is written out 
completely in order to minimize 
execution time. The execution time 
varies, of course, since it depends on 
the number of non-zero bytes in the 
MFP and the number of bits set in the 
MFPM. Multiplying two small integers 
takes generally much less time than 
multiplying two fractional numbers, 
because the mantissa of an (Applsoft) 
integer number contains at most two 
non-zero bytes. When we assume that 
on the average half of the bits are set in 
the MFPM (including the extension 
byte), the number of cycles needed for 
the mantissa multiplication will about 
2250. Since a 6502 cycle corresponds 
approximately to a microsecond, we 
arrive at 2.3 milliseconds per mantissa 
multiplication. 



Multiplication with the 6809 

The availability of the MUL 
instruction opens the way to use an 
entirely different multiplication 
routine. Rather than working on bit 
level, we can now do things on byte 
level. A possible approach is outlined 
in Figure 2. First, byte 4 of the MFPM 
(byte i of the MFPM will further be 
referred to as MFPMi) is multiplied 
with SFPM3 and the result is put in 
bytes 7 and 8 of the (zero-initialized) 
product accumulator. Next, MFPM3 is 
multiplied with SFPM3 and the result 
is added to bytes 6 and 7 of the product 
accumulator. This process is continued 
until all bytes of the MFPM are 
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multiplied with SFPM3. The following 
step is to multiply all bytes of the 
MFPM with SFPM2. We start with 
SFPM2 * MFPM4 and add the result to 
bytes 6 and 7 of the product 
accumulator. But now a problem 
arises. Namely, when the addition is 
executed, a carry may be generated, for 
the product accumulator already 
contains the results of MFPM * 
SFPM3. If a carry is generated, byte 5 of 
the product accumulator must be 
incremented by one. The latter 
operation may, however, also generate 
a carry (actually: set the zero flag), 
which would mean that byte 4 must 
also be incremented, and so on. This is 
certainly a drawback of this approach, 
for a considerable amount of time may 
be involved with the carry-processing. 
An additional drawback is that the 
product accumulator must consist of 9 
bytes. This can be reduced to 6 bytes, 
but then the entire product 
accumulator must be shifted one byte 
to the right after each multiplication of 
the MFP mantissa with a byte of the 
SFPM. 

Another approach that looks more 
promising works as follows. In 
algebraical terms, the 20 (4x5) byte by 
byte multiplications required to 
multiply the two mantissas can be split 
up in a number of groups. Each group 



consists of those 'partial products' that 
have the same exponent. When the 
MFPM is looked at as a binary number, 
it can be represented as follows: 

MFPN=HFPM0*2 A + NFPMl»2 A 8 ♦ NFPM2*2 A 16 

♦ MFPM3»2 A 24 + MFPM4*2 A 32 

Multiplication with the SFMP, i.e., 

SFPN=SFPM0#2 A ♦ SFPM#2 A 8 + SFPM2*2 A 16 * SFPN3#2 A 24 
gives: 

(SFPN0»NFPM0)»2 A ♦ 
ISFPH0*HFPHl+SFPHl»HFPH0)#2 A a ♦ 
ISFPH0#HFPrJ2+SFPHl*MFPHl+SFPH2#MFPM0)#2 A 16 ♦ 
(SFPMO#MFPM3+SFPH1#MFP«2+SFPM2*MFPM1+SFPM3*MFPMO)*2 A 24 ♦ 
(SFPM0*HFPH4+SFPM1»HFPH3+SFPM2*MFPH2+SFPH3*MFPH1)#2 A 32 ♦ 
ISFPM1*MFPH4+SFPM2*MFPH3+SFPM3»MFPM2}»2 A 40 ♦ 
(SFPH2»MFPM4+SFPM3»HFPN3)#2 A 48 ♦ 
(SFPH3»HFPM4)*2 A 54 

The product can be built up in 8 



Figure 2. Multiplication with the 6809 (nethod 1) 



: MFPMO : MFPM1 : MFPM2 : MFPN3 : HFPH4 s MFPM 



SFPHO : SFPM1 : SFPH2 i SFPH3 : SFPM 



-- x 



: SFPM3 » MFPM4 i 



i SFPM3 i MFPM3 ; 



- - — t 



: PRODfc : PR0D7 : PR0D8 



: SFPM3 : MFPH2 i 



— - t 



i PR0D5 : PRODA i PR0D7 : PRODS i 



etc, 



Figure 3. Multiplication with the 6809 dethod 2) 

i MFPMO : NFPH1 : HFPM2 i MFPM3 : MFPM4 : MFPM 

: SFPMO : SFPM1 i SFPM2 : SFPM3 : SFPM 
- x 

i SFPM3 * MFPM4 i 

\ 

i PR0D4 i 

: SFPM2 » MFPM4 : 
— t 

s PR0D3 : PR0D4 : 

! SFPM3 ♦ MFPM3 : 

+ 

: PR002 : PR0D3 : PR0D4 : 

SZ'SI."" 

: PR0D3 : PR0D4 : 

: SFPM1 * HFPH4 : 
+ 

: PR0D2 ! PR0D3 i PR0D4 : 
etc. 
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Figure 4 












iterations, where each iteration 
corresponds to the calculation of one of 






» MULTIPLY BINARY NUMBERS 


the terms between parenthesis above. 






* ON A 6809 






We start with the calculation of the last 














term (i.e., SFPM3*MFPM4). This 






* BY C0RNEL1S B0N6ERS 




involves a single multiplication and the 






♦ APRIL 


1983, 


VERSION 1. 


1 


result is put in bytes 7 and 8 of the 






♦ IN MICRO 170, MARCH 1984 


product accumulator. Next, the last 














but one term is computed. This 






* NOTES 








involves two multiplications, and both 
results are added to bytes 6 and 7 of the 






* LPROD MUST BE >=3 AND <» LMPL+LMPC 


product accumulator. A carry may 






* LMPC MUST BE >= LMPL 




result here, but since bytes 0-5 of the 






* LMPL AND LMPC MUST EACH BE < 128 


product accumulator are (still] zero, a 






» LMPL+LMPC-LPRQD MUST BE < 1 28 


simple increment of byte 5 will do. 














This increment can never generate a 






* INITIALIZATION 




carry, for, as can be figured out, a 














(second] carry can only occur if a term 




00A6 


MPL 


EQU 


*A6 


START MULTIPLIER 


involves more than 257 




009E 


MPC 


E9U 


*9E 


START MULTIPLICANT 


multiplications. The other terms are 




0062 


PROD 


EQU 


$62 


START PRODUCT 


calculated and processed in a similar 




0004 


LMPL 


EQU 


$4 


LENGTH MULTIPLIER 


way. 




0005 


LMPC 


EQU 


$5 


LENGTH MULTIPLICANT 


The advantages of the approach 




0005 


LPROD 


EQU 


*5 


LENGTH PRODUCT 


above are that no extended carry- 
processing is necessary and that we 






* TEMPORARY REGISTERS 




need not reserve the full length of the 






t 








product accumulator (i.e., 9 bytes). If 




0006 


CURX 


EQU 


$6 


POINTER TO MULTIPLIER 


we want to reserve only 5 bytes for the 




0008 


CURY 


EQU 


$8 


POINTER TO MULTIPLICANT 


mantissa of the product accumulator 




OOFB 


ITCNT 


EQU 


*FB 


NO. OF ITERATIONS 


(as is the case in Applesoft), we set the 




OOFC 


ITER 


EQU 


*FC 


ITERATION COUNTER 


product accumulator pointer, which 




OOFD 


SGNCNT 


EQU 


$FD 


NO. OF SHIFTS TO THE RIGHT 


references the current byte(s) of the 




OOFE 


SAME 


EQU 


*FE 


NO. OF LONGEST ITERATIONS 


product accumulator, to byte 3 during 




OOFF 


MAILBOX ECU 


»FF 


USED FOR 6502 COMMUNICATION 


the first 5 iterations. Consequently, 






t 








after the calculation of each of the first 






♦ START OF PROGRAM 




four terms the two (!) relevant bytes of 






♦ 








the product accumulator must be 


0000 OF 


FF 


START 


CLR 


MAILBOX 




shifted one byte to the right (see Figure 


0002 96 


FF 


WAIT 


LDA 


MAILBOX 


WAIT FOR MULTIPLY COMMAND 


3 for an illustration). Only after the 


0004 2A 


FC 




BPL 


WAIT 




calculation of the 5th term (and each of 


0006 8E 


00A9 




LDX 


IMPL+LMPL 


-1 POINTS TO END OF MULTIPLIER 


the remaining terms), the product 


0009 108E 00A3 




LDY 


IMPC+LMPC POINTS TO END+1 OF MULTIPL1CANT 


accumulator pointer is decremented 


000D 109F 


08 




STY 


CURY 




and the shift to the right operation is 


0010 86 


04 




LDA 


#LMPL+LMPC-LPRQD SET UP SAME AND 


omitted. 


0012 C6 


01 




LDB 


ILMPC-LMPL S6NCNT 


The routine listed in Figure 4 shows 


0014 DD 


FD 




STD 


SGNCNT 




the code for the multiplication process 


0016 CE 


0065 




LDU 


#PROD+LPR0D-2 POINTS TO END-1 OF PRODUCT 


discussed above. Although no stack- 


0019 6F 


C4 




CLR 


,u 


CLEAR LAST BYTES OF PROD. ACCUM. 


wise parameter passing is employed, 


0016 6F 


41 




CLR 


1,U 




the routine is set up in such a way that 


001 D OF 


FB 




CLR 


ITCNT 


SET NO. OF ITERATIONS OT 


it can easily be adapted to non- 


00 IF 20 


IB 




BRA 


ENTRY1 


GO MULTIPLY 


Applesoft applications. The length (in 


0021 33 


5F 


ALIGN 


LEAU 


-l.U 


START MAIN LOOP 


bytes) of the multiplicant, the 


0023 9E 


06 


CONT 


LDX 


CURX 




multiplier and the product can be 


0025 8C 


00A7 




CPX 


tMPL+1 


START MULTIPLIER REACHED ? 


specified by the user (see initialization 


0028 24 


OE 




8HS 


NXTPSO 


BRANCH IF NOT 


section), provided the restrictions 


002A OA 


09 




DEC 


CURY+1 


UPDATE PTR TO MULTIPLICANT 


mentioned in the listing are satisfied. 


002C OA 


FE 




DEC 


SAME 


KEEP TRACK OF MAX « ITERATIONS 




002E 2A 


OE 




BPL 


NXTPS1 




The 6502 Versus the 6809 


0030 OA 


FB 




DEC 


ITCNT 


DOWN THE HILL 




0032 27 


OC 




BEQ 


SKPCLR 


LAST PASS 


The final step is linking the 6809 


0034 2A 


08 




BPL 


NXTPS1 




multiplication routine to Applesoft. 


0036 20 


C8 




BRA 


START 


READY 


The 6502 driver, which takes care of 
6809 - 6502 communications is 
displayed in Figure 5. Since the 6809 
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0038 30 


IF NXTPSO LEAK 


-t,x 


UPDATE PTR TO MULTIPLIER 


routine expects a contiguous MFP 


003A OC 


FB 


INC 


ITCNT 


UP THE HILL 


accumulator, the value of the 


003C ?F 


04 ENTRY1 STX 


CURX 


UPDATE CURX 


extension byte ($AC) is moved to $A2. 


003E 4F 


5F NXTPS1 CLR 


-1,U 


CLEAR OVERFLOW BYTE 


The old value of $A2 is temporarily 


0040 109E 08 SKPCLR LDY 


CURY 


GET PTR TO MULTIPLICANT 


stored in the X-register. A similar 


0043 96 


FB 


LDA 


ITCNT 


GET # OF ITERATIONS FOR THIS PASS 


save/restore operation is performed on 












location $66, which corresponds to the 


0045 97 


FC 


STA 


ITER 


SET UP ITERATION COUNTER 


'extension' byte of the product 


0047 A6 


BO GOHUL LDA 


,X+ 


GET BYTE OF MULTIPLIER 


accumulator. 


0049 E6 


A2 


LDB 


,-r 


AND MULTIPLICANT 


Installation of the 6809 routine 


004B 3D 




HUL 




MULTIPLY 


involves the following steps: 


004C E3 


C4 


ADDD 


,u 


ADD TO PARTIAL PRODUCT 


1] Load the 6809 code at a suitable 


004E ED 


C4 


STD 


,u 


AND STORE 


address in memory, for example at 
$9400 


0050 24 


02 


BCC 


NOOVER 




0052 6C 


5F 


INC 


-i,u 




2) Coldstart the 6809 with the 6809 


0054 OA 


FC NOOVER DEC 


1 | w 

ITER 




reset vector set to the address above. 


0054 2A 


EF 


BPL 


60MUL 




Next put the 6809 in HALT state. 


0058 D6 


FD 


LDB 


S6NCNT 


UPDATE U-PTR ? 


3] Move Applesoft into the Language 


005A 27 


C5 


BEfl 


ALIGN 


BRANCH IF SO 


Card and read/write enable the 


005C OA 


FD 


DEC 


SSNCNT 




Language Card 


005E EC 


5F 


LDD 


-1,U 


SHIFT PARTIAL PRODUCT 


4) ■ Load the 6502 driver at $E98A 


0040 ED 
0042 20 


C4 
BF 


STD 
BRA 


1 ■* 

C0NT 




5) Coldstart Applesoft and set HIMEM 


CONTINUE 


to the address specified at step 1 




t 








After performing step 5, all 




* END QF PROGRAM 




multiplications will be done by the 












6809. A good method to check if things 












work all right is to write a small 


Figure 


5 








Applesoft program that compares the 












results of two multiplications, the first 






! 6502 DRIVER FOR 4809 FP MULTIPLICATION 


computed under 'normal' Applesoft 






i 






and the second computed under the 




009E 


HFPM 


EBU $9E 


i MANTISSA MAIN FP ACC 


6809 version (by means of PEEK(49280] 




0042 


PROD 


EQU $42 


! MANTISSA OF PRODUCT 


and PEEK(49281), the Language Card 




OOAC 


EXTB 


EQU *AC 


; EXTENSION BYTE 


can be switched on and off from 




OOFF 


MAILBOX 


EBU *FF 


i FOR 4502/6809 COMM 


BASIC). 




EAE6 


NORM 


EBU IEAE6 


i NORMALIZE ROUTINE 


For the speed comparisons I used 




C0B1 


HLT4809 


EBU IC0B1 


; HALT/START 6809 


the program displayed in Figure 6. The 






i 






program took 52 sees to compute the 




E98A 




0R6 IE98A 




10000 multiplications with normal 






i 

i 






Applesoft. Next I switched to the 6809 




E98A A6 A2 




LDX HFPN+4 


j SAVE $A2 


version and ran the program again, but 




E98C A4 44 




LDY PROD+4 


i AND LAST BYTE PRODUCT 


to my great disappointment, the 




E98E A5 AC 




LDA EXTB 


; PROVIDE 6809 WITH 


reduction in execution time was only 4 




E990 85 A2 




STA MFPM+4 


i A CONTINUOUS MFPM 


sees. First, I thought there had to be an 




E992 A9 80 




LDA 1180 


; PREPARE CALL 


error somewhere (in the form of a 




E994 85 FF 




STA MAILBOX 


temporary hang-up of either the 




E994 8D Bl CO 




STA HLT6809 ; START 6809 


program or my watch], since the same 




E999 A5 FF 


WAIT 


LDA MAILBOX 


program ran in 21 sees under BASIC09. 




E99B 30 FC 




BMI WAIT 


; WAIT UNTIL 4809 IS READ 


However, I was unable to find any 




E99D 8D Bl CO 




STA HLT6809 ; HALT 4809 


bugs, so I decided to establish more 




E9A0 A5 44 




LDA PROD+4 


; SET EXTENSION BYTE 


precise timing results for the 




E9A2 85 AC 




STA EXTB 


; PROPER VALUE 


multiplication operation. This can be 




E9A4 84 A2 




STX MFPM+4 


; RESTORE CLOBBERED 


done rather easily by moving a fresh 




E9A4 84 44 




STY PROD+4 


; LOCATIONS 


copy of Applesoft into the Language 




E9A8 4C E4 EA 




JMP NORM 


; NORMALIZE AND EXIT 


Card and inserting a JMP $EAE6 






1 






instruction (to the normalize routine) 




E9AB 




END 




at $E98A, thereby eliminating the 












mantissa multiplication. This led to an 


Figure ( 


1 








execution time (of the program in 












Figure 6) of 32 sees. Deducting this 


5 REM (SIMPLE) PR06RAM FDR SPEED COMPARISONS 


from the 52 sees realized earlier, we 


10 LET A = 5 / 3: 


B = 5 / 3 






arrive at a time of 2 millisecs per 


20 FOR I = 1 TO 10000: C = 


A * B: NEXT 




multiplication. With the 6809, the 


30 PRINT CHR$(7); 


REM BELL 






time needed for a multiplication is then 
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Figure 7 



t SPECIAL PURPOSE HULT1LICATI0N ROUTINE 
* TO SPEED UP APPLESOFT 



* HFP MANTISSA STARTS AT $93 (5 BYTES) 

* SRP HANTIXXA STARTS AT *A6 14 BYTES) 

* PRODUCT HANTIXXA STARTS AT $64 15 BYTES) 
» 

MAILBOX EQU IFF USED FOR 6502 COMMUNICATION 
t 

MULTDR MACRO CONTROLS SENERATION OF MULT SEGMENTS 
PNT1 SET fcl SETS PTRS TO MANTISSA BYTES 
SET 12 

SET *62+fcU&2-*9E-*A6-&3 SET PRODUCT PTR 
SET M CARRY PROCESSING FLAG 
PMTI,PMT2,PNTPR, CARRY INSERT MULT SE6MENT 
SET TURN CARRY PROCESSING ON 

PNT1+1 

(PNT1-$AA),2 LOOP UNTIL DONE 

PNT2-1 

(PNT2-*?D),-5 



PNT2 

PNTPR 

CARRY 

MULT 

CARRY 

PNT1 

PNT2 



SET 
IFN 
SET 
IFN 
ENDM 







« 

MULT 


MACRO GENERATES MULT SEGMENT 








LDA 


42 GET BYTES TO BE MULTIPLIED 








IFN 


(J(2=*A2) CHECK IF EXTENSION BYTE AND 








BEQ 


1+13-14 GENERATE BRANCH INSTR IF SO 








LDB 


Jd 








MUL 










ADDD 


(3 ADD TO PARTIAL RESULT 








STD 


43 








IF 


44=4,2 SUPPRESS CARRY CHECK 








BCC 


*+4 IF 44O0 








INC 


43-1 






jL 


ENDM 








* MAIN PROGRAM 


0000 OF 


FF 


START 


CLR 


MAILBOX 


0002 96 


FF 


WAIT 


LDA 


MAILBOX WAIT FOR MULT COMMAND 


0004 2A 


FC 




BPL 


WAIT 


0006 8E 


0000 




LDX 


t$0 


0009 9F 


62 




STX 


$62 INIT BYTE AND 1 OF PRODUCT 


MOB 96 


A2 




LDA 


$A2 ACCUM. CHECK EXTN. BYTE 


OOOD 26 


34 




BNE 


ALL 60 ALL THE NAY IF <>0 


OOOF 97 


66 




STA 


$66 INIT LAST BYTE PRODUCT ACCUM 


0011 109E AO 




LDY 


$A0 DEALING WITH INTEGERS ? 


0014 26 


32 




BNE 


NOINT BRANCH IF NOT 


0016 109E AS 




LDY 


*A8 DITTO 


0019 26 


2D 




BNE 


NOINT 






* INTEGER MULTIPLICATION 






# (4 BYTE BY BYTE MULTIPLICATIONS) 


00 IB 96 


A7 


t 


LDA 


*A7 


001D D6 


9F 




LDB 


*9F 


001F 3D 






MUL 




0020 DD 


64 




STD 


$64 


0022 






MULT 


*A6,*9F,*63,4 


002B 






MULT 


*A7,$9E,*63,0 DO CARRY CHECK HERE 


0038 






MULT 


»A6,$9£,*62,4 


0041 20 


BD 


* 


BRA 


START 




More speed, more memory 
workspace from the people 
who lifted the 64K limit. 

In 1981 , we introduced our famous 
Saturn RAM card to boost the Apple's 
memory by 32K. Now, there are 64K 
and 128K versions for added power. 

Increased RAM lets you run bigger 
programs, and our VisiCalc® expansion 
software provides a dramatic expansion 
of workspace memory. Also, the extra 
memory can work as a pseudo disk for 
instant access. (No more 20-second 
searches!) The Saturn RAM board is a 
super aid for advanced word process- 
ing, data base management, spread 
sheet, and accounting applications. 
And perfect with PASCAL, CP/M®, 
and BASIC. 




Use our easily installed cards in 
combination — and get a whopping 
220K of VisiCalc workspace on the 
Apple lie. Or sensational enhancements 
on Apple II, II + , Franklin, Basis and 
most Apple compatibles. We even have 
software that increases your Apple's 
memory in BASIC programming up to 
4 megabytes! 

This kind of performance requires 
sophisticated bank switching and sup- 
porting software that we originated, 
proved, and improved. Buy from 
the leader! 

Let us help you expand your Apple's 
productivity For information on our 
RAM boards and other Titan microcom- 
puter products, see your computer 
dealer or contact: Titan Technologies, 
Inc., P.O. Box 8050, Ann Arbor, 
MI 48107; Telephone (313) 973-8422. 

Sales and Marketing by The MARKETING 
RESOURCE GROUP, Costa Mesa, CA. 



BiTitan 

— ■ ^— TECHNOLOGIES, INC. 

•^m^^^^m^^mi^r formerly Saturn systems of Michigan 



Apple is a registered trademark of Apple Computer, Inc. 
VisiCalc is a registered trademark of VisiCorp, Inc. 
CP/M is a registered trademark of Digital Research, Inc. 
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4.8-3.2=1.6 millisecs, so the increase 
in 'multiplication' performance is 
20%. An aspect that also must be take 
into consideration concerns the 
extension byte. The extension byte is 
only us to prevent losing precision 
during the evaluation of expressions. 
However, in our test program the 
extension byte will always be zero, 
since no temporary results are 
generated. The 6502 multiplication 
routine skips in this case 8 add /shift 
operations on bit level and shifts the 
product accumulator one byte to the 
right instead. A similar thing does not 
happen in the 6809 multiplication 
routine; here the 20 multiplications are 
executed always. Consequently, the 
6502 has an inherent advantage, which 
results in a gain of 3-4 sees. Adding this 
to the 20 sees obtained above, we have 
2.3-2.4 millisecs per 6502 FP mantissa 
multiplication. This agrees with the 
cycle-based time calculation in section 
2. The determination of the number of 
cycles consumed by the 6809 
multiplication routine is easy with the 
help of the excellent FLEX debugger; it 
came up with 1560 cycles. Adding the 
6502 driver overhead (i.e., 46 cycles), 
the 6809 FP mantissa multiplication 
should, therefore, last about 1.6 
millisecs. 

So, overall the cycle times fit 
reasonably well with the timing 
results. When multiplying fractional 
numbers, you can expect a speed 
improvement of about 10%-20% per 
multiplication. In the case of integers, 
however, you will be faced with a 
significant slowdown in execution 
speed. For example, the program above 
with A and B set to 10, rather than to 
5/3, needs only .9 millisecs per 6502 
multiplication, but (still) 1.6 millisecs 
per 6809 multiplication. 

The results above strongly suggest 
that implementation of a 6809 
multiplication routine in Applesoft is 
not attractive. There is still hope 
though, for BASIC09 somehow 
manages to execute FP multiplication 
in much less time. So, the question is: 
How come the BASIC09 multiplication 
routine is so fast. After delving into the 
BASIC09 interpreter to locate the FP 
multiplication routine, the answer 
appeared to be easy. In the first place, 
BASIC09 doesn't use an extension 
byte. This means that an FP 
multiplication consists of 16 rather 
than 20 byte by byte multiplications. 
In the second place, it appeared that the 
entire multiplication routine is written 
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* FL0ATIN6 POINT HULTIPLICATION 

* (16 OR 20 BYTE BY BYTE HULL) 
* 



0043 D6 


A9 


0045 3D 




0044 97 


66 


0048 9F 


64 


004A 




0062 




OOBB 




00C1 DC 


62 


00C3 DD 


65 


00C5 9F 


62 


00C7 OF 


64 


00C9 




OOFD 




0124 




013E 




0147 16 


FEI 


Figure 8 




0000 





ALL 



NOINT 



LDB $A9 
HUL 

STA $66 
STX $64 
HULTDR $A8, 
MULTDR $A7, 
HULTDR $A6, 
LDD $62 
STD $65 
STX $62 
CLR $64 
HULTDR $A6, 
HULTDR $A6, 
HULTDR *A6, 
HULTDR $A6, 
LBRA START 



INIT BYTE 2 AND 3 OF PRODUCT ACC 
$A2,3,4 SENERATE 2 SE6HENTS 
$A2,3,0 6ENERATE 3 SE6HENTS 
$A2,3,0 GENERATE 4 SE6HENTS 

THROW EVERYTHING AWAY EXCEPT 

THE HOST SIGNIFICANT BYTES 

REINIT PRODUCT ACC. 

Mi, 0,0 GENERATE 4 SEGHENTS 

$AO,0,0 GENERATE 3 SE6HENTS 

$9F,0,0 6ENERATE 2 SE6HENTS 

I9E,0,4 6ENERATE 1 SE6HENT 



* SAHPLE HACRO EXPANSION 

ORG $0000 
* 

* DEFINE HULTDR MACRO 
♦ 

HULTDR MACRO 

PNT1 SET 11 

PNT2 SET 42 

PNTPR SET $62+41+42-$9E-$A6-43 

CARRY SET 44 

MULT PNT1,PNT2,PNTPR,CARRY 

CARRY SET 

PNT1 SET PNT1+1 

IFN (PNT1-$AA).2 

PNT2 SET PNT2-1 

IF (PNT2-$9D),-5 

ENDM 



» DEFINE MULT HACRO 

i 

MULT HACRO 

LDA 42 

IFN I42=M2) 

BEQ H13-44 

LDB M 
HUL 

ADDD 43 

STD 43 

IF 44=4,2 

BCC *+4 

INC 43-1 
ENDH 



GET BYTES TO BE MULTIPLIED 
CHECK. IF EXTENSION BYTE AND 
6ENERATE BRANC INSTR IF SO 



ADD TO PARTIAL RESULT 

SUPPRESS CARRY CHECK 
IF MOO 



* SAHPLE EXPANSION OF MULT MACRO 
t 

$63,4 



0000 




MULT 


$A6, 


0000 96 


9F 


LDA 


$9F 


0002 27 


07 


BEQ 


*+13 


0004 D6 


A6 


LDB 


$A6 


0006 3D 




HUL 




0007 D3 


63 


ADDD 


$63 


0009 DD 


63 


STD 
ENDM 


$63 



GET BYTES TO BE HULTIPLIED 
GENERATE BRANCH INSTR IF SO 



ADD TO PARTIAL RESULT 



(Continued on next page) 
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Figure 8. Note: This is a sample of the expanded 
MACRO'S: MULT and MULTDR. 



OOOB 



000B 
OOOB 96 
000D 27 
000F D6 

0011 3D 

0012 D3 
0014 DD 
0016 24 
0018 0C 



001 A 
001 A 96 
001C 27 
001E D6 

0020 3D 

0021 D3 
0023 DD 
0025 24 
0027 OC 



0029 

0029 96 
002B 27 
002D D6 
002F 3D 

0030 D3 
0032 DD 
0034 24 
0036 0C 



0038 
0038 96 
003A 27 
003C D6 
003E 3D 
003F B3 
0041 DD 
0043 24 
0045 0C 



00A6 
00A1 
0065 
0000 



» SAMPLE EXPANSION OF MULTDR MACRO 
t 

MULTDR *A6,*A1,0,0 



PNT1 
PNT2 
PNTPR 
CARRY 



Al 
OB 
A6 

65 
65 
02 
64 



0000 
00A7 
00A0 



CARRY 

PNT1 

PNT2 



AO 
OB 
A7 

65 
65 
02 
64 



0000 
00A8 
009F 



CARRY 

PNT1 

PNT2 



9F 
OB 
A8 

65 
65 
02 
64 



0000 
00A9 
009E 



CARRY 

PNT1 

PNT2 



9E 
OB 
A9 

65 
65 
02 
64 



0000 
OOAA 



CARRY 
PNT1 



SET 

SET 

SET 

SET 

MULT 

LDA 

BE9 

LDB 

MUL 

ADDD 

STD 

BCC 

INC 

ENDM 

SET 

SET 

SET 

MULT 

LDA 

BEfi 

LDB 

MUL 

ADDD 

STD 

BCC 

INC 

ENDM 

SET 

SET 

SET 

MULT 

LDA 

BEQ 

LDB 

MUL 

ADDD 

STD 

BCC 

INC 

ENDM 

SET 

SET 

SET 

MULT 

LDA 

BEQ 

LDB 

MUL 

ADDD 

STD 

BCC 

INC 

ENDM 

SET 

SET 

ENDM 

END 



*A6 

$A1 

$62+tA6+*Al-*9E-*A6-0 



PHT1,PMT2, PNTPR, CARRY 

PNT2 GET BYTES TO BE MULTIPLIED 

t+13-CARRY GENERATE BRANC INSTR IF SO 

PNT1 



PNTPR 
PNTPR 
t+4 
PNTPR-1 



ADD TO PARTIAL RESULT 
IF CARRYOO 




PNT1+1 

PNT2-1 

PHT1 ,PNT2, PNTPR, CARRY 

PNT2 GET BYTES TO BE MULTIPLIED 
t+13-CARRY GENERATE BRANC INSTR IF SO 
PNT1 



PNTPR 
PNTPR 
t+4 
PNTPR-1 



ADD TO PARTIAL RESULT 



IF CARRYOO 





PNT1+1 

PNT2-1 

PNT1,PNT2. PNTPR, CARRY 

PNT2 6ET BYTES TO BE MULTIPLIED 

*+13-CARRY GENERATE BRANC INSTR IF SO 

PNT1 



PNTPR 
PNTPR 
t+4 
PNTPR-1 



ADD TO PARTIAL RESULT 



IF CARRYOO 





PNT1+1 

PNT2-1 

PNT1,PNT2,PNTPR,CARRY 

PNT2 6ET BYTES TO BE MULTIPLIED 

t+13-CARRY GENERATE BRANC INSTR IF SO 

PNT1 



PNTPR 
PNTPR 
t+4 
PNTPR-1 


PNT1+1 



ADD TO PARTIAL RESULT 



IF CARRYOO 



out completely. This means that all 
loop and pointer overhead - which 
accounts for roughly 50% of the 
execution time - is eliminated. As a 
result, the BASIC09 mantissa 
multiplication requires, on the average, 
only about 750 cycles o.75 millisecs 
per mantissa multiplication. 

The best way to improve FP 
multiplication seems, therefore, to use 
the BASIC09 approach. Though this 
takes many bytes of code, the increase 
in performance is impressive. Figure 7 
displays the listing of a source file that 
cane used to generate a loop- and 
pointerless multiplication routine. The 
file can be assembled with the FLEX 
assembler and installed with the 5 
steps outlined above. Two macro's 
have been defined; the first fMULTDR) 
controls the generation of the byte by 
byte multiplication segments and the 
second (MULT) generates the 
multiplication segments itself. As can 
be seen, the mantissas of MFP and SFP 
are checked on zero-bytes. If the last 
two bytes of both mantissas are zero, a 
fast integer multiplication routine is 
used. 

The execution time of the routine is 
39 sees for the program in Figure 6. 
That means 3. 9-3. 2 =.7 millisecs per 
multiplication, implying a speed 
improvement of 65% relative to 
Applesoft. When setting A and B to 10, 
a multiplication takes only .2 
millisecs, so integer multiplication is 
improved by more than 75%. The 
routine also speeds up other Applesoft 
functions. For example, the 
computation time for the SIN function 
is reduced by approximately 40% and 
the computation time for the SQR 
function by about 45%. 

Conclusion 

The best way to significantly speed up 
Applesoft multiplication with the 6809 
is to use a fully expanded 
multiplication routine. Such a routine 
consumes a lot of memory, but the 
increase in performance (a 65%-75% 
reduction in the execution time of a 
multiplication) gives a good pay-off. 



Cornells Bongers may be reached at 
Erasmus University, Postbox 1738, 3000 
DR Rotterdam, The Netherlands. 
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Compile 

Your BASIC 

Subroutines 



by Ann Marie Lancaster and Cliff Long 

Interpreted BASIC is easy to use but slow, and 
Compiled BASIC is fast but difficult to use. This 
solution combines the best of both and works 
with machine language, too 



Not only is BASIC a readily available 
language for micros, but its interpretive 
nature offers some advantages for 
program development. Unfortunately, 
execution speed is not one of these 
advantages. Compilers are now readily 
available for BASIC, and we have been 
using the Microsoft version with our 
Apple IFs. The execution time for a 
specific surface plotting program (with 
hidden line removal) dropped from 
about three minutes to thirty-three 
seconds when compiled. Such time 
reductions seem typical of our 
applications and certainly lead to 
substantial savings for regularly used 
programs. The one time compilation 
does take a few minutes longer than a 
regular program execution. 

If the total surface plotting program 
is compiled, then each new surface 
description requires a new compile step 
because function changes require a self- 
modification of the BASIC program [1]. 
Since, for classroom graphics 
applications, it is convenient to modify 
the defining function frequently 
depending on the homework problems 
or the whim of the questioning 
students, we decided to compile the 
slowest subroutine [the hidden line 
part) of the program. This allows us to 
change the function and viewing 
direction many times during a typical 
program execution without having to 
recompile. Hence, while part of the 
main program is running in interpreted 
BASIC, the slowest portion has been 
replaced by the fast running compiled 
form, thus giving us a very efficient 
"canned program" running at close to 
the machine code speed (without the 
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tedious machine language 
programming). [Ed. Note: Of course, if you 
enjoy machine language programming, the 
technique discussed here will still woik and 
be useful.) 

When we compiled the subroutine 
and attempted to call it from a BASIC 
program, we encountered a difficulty. 
The Microsoft compiler was not 
designed for compiling subroutines 
which are to be called from a BASIC 
program. Unfortunately, the execution 
of the compiled routine erases many of 
the pointers used by the main program. 
Hence, these pointers need to be 
preserved for later recall in order to 
return to the calling program. We 
include here our solution to this 
problem with the Microsoft compiler 
in the hope that you can incorporate it 
directly or find a way to modify it for 
your own use. In our case, the results 
were well worth the effort. 

Two interface routines were 
written; one routine creates a path 
from the BASIC program to the 
compiled subroutine and the second 
creates a path from the compiled 
program back to the BASIC program. 
These are presented in Listing 1 . 



BASIC 
PROGRAM 



^\ 



ENTRY 



EXIT 



V 



COMPILED 
SUBROUTINE 



The routine ENTRY performs the 
following functions: 

1. Retrieves from the stack the 
return address in the BASIC 
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interpreter and saves it for 
use by routine EXIT; 

2. Stores the contents of all 256 
page zero locations; 

3. Transfers control to the 
compiled subroutine. 

Routine ENTRY is called from the 
BASIC program. During execution of 
the compiled program, the contents of 
several page zero locations are altered. 
Consequently, the original contents of 
these locations have to be saved in 
order to resume execution of the BASIC 
program following the call to the 
compiled subroutine. 

The routine EXIT performs the 
following functions: 

1. Restores to the top of the 
stack the return address in 
the BASIC interpreter saved 
by routine ENTRY; 

2. Restores the contents of the 
page zero locations; 

3. Issues a 'return from 
subroutine' command. 

Routine EXIT is called from the 
compiled subroutine. The functions it 
performs are necessary in order to allow 
execution of the BASIC program to 
resume at the statement following the 
call to the routine ENTRY. 
We stored these routines in the first 
part of page three in memory which is 
available for user programs. A page of 
memory is also needed to save the 
contents of page zero prior to execution 
of the compiled program. Since our 
programs did not open any disk data 
files, we used a page ($96) allocated to 
DOS as a file buffer. Obviously, any 
unused memory page could be used. 

Figure 1 illustrates the use of the 
ENTRY and EXIT routines. Both 
routines have been stored in a disk file 
called ENTRY-EXIT ROUTINES.OBJ 
Note that the addresses appearing in 
the assembler Listing 1 are given in 
base 16, whereas the addresses used in 
the programs below are in base 10. 
(Note: 300i6 = 768 10 and 31A 16 = 
794,0.) 

One should note that the last line of 
routine ENTRY of the assembler listing 
is a jump to the compiled subroutine. 
In this example, the address is $684C. 
This address will change depending 
upon where you wish to store this 
routine in memory. If your BASIC 
program calls more than one compiled 
subroutine, the same ENTRY and EXIT 
routines can be used by changing the 
address portion of the JMP statement 
before the call to the ENTRY routine. 
This can be done using the BASIC 
POKE statement. 
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Consider the following example. 
We are assuming that the first 
compiled subroutine is stored at $1040 
and the second is stored at $6200. Note 
that the address in the JMP instruction 
is stored low-byte followed by high- 
byte. (Note: 10 16 = 16 10 , 40 16 = 64 10 
and 62 16 = 98 10 .) 



Figure 1 

MAIN PROGRAM 


Figure 2 

MAIN PR06RAM 


400 PRINT CHR*(4)+"BL0AD ENTRY-EXIT ROUTINES. OBJ" 


• 

400 PRINT CHR*(4)+"BL0AD ENTRY-EXIT ROUTINES. OBJ" 


2000 CALL 768 : REM CALL ENTRY ROUTINE 

i 


2000 REM CALL FIRST COMPILED SUBROUTINE 
2010 POKE 792,64 : REM STORE LON-BYTE OF ADDRESS 
2020 POKE 793,16 : REM STORE HI6H-BYTE OF ADDRESS 
2030 CALL 76B : REM CALL ENTRY ROUTINE 


SUBROUTINE TO BE COMPILED 


• 


CALL 794 ! REM CALL EXIT ROUTINE 


4000 REM CALL SECOND COMPILED SUBROUTINE 
4010 POKE 792,00 : REM STORE LON-BYTE OF ADDRESS 
4020 POKE 793,98 i REM STORE HIBH-BYTE OF ADDRESS 
4030 CALL 768 : REM CALL ENTRY ROUTINE 

i 



DISCOUNT COMPUTER 



APPLE 



gcippkz® 

Eliminator 

War 

Adventureland 

Pirates Adventure 

Golden Voyage 

Magic Window 

Temple of Apshai 

Upper Reaches of Apshai 

Curse of Ra 

Midway Campaign 

Hi-Res Computer Golf 

DOS Boss 

The Arcade Machine 

Star Blazer 

Choplifter 

Serpentine 

Deadly Secrets 

Raster Blaster 

Bug Attack 

The Home Accountant 

Snack Attack 

Pig Pen 

Wordrace 

Rendevous 

Russki Duck 

Horizon V 

Sargon II 



29.95 


21.00 


24.95 


18.00 


29.95 


21.00 


29.95 


21.00 


29.95 


21.00 


99.95 


72.00 


39.95 


29.00 


19.95 


15.00 


19.95 


15.00 


16.00 


12.00 


29.95 


21.00 


24.00 


18.00 


44.95 


33.00 


31.95 


23.00 


34.95 


25.00 


34.95 


25.00 


34.95 


25.00 


29.95 


2100 


29.95 


21.00 


74.95 


54 00 


29.95 


21.00 


29.95 


21.60 


24.95 


18.00 


39.95 


29.00 


34.95 


25.00 


34.95 


25.00 


34.95 


25.00 



Zork I 39.95 29.00 

Zork II 39.95 29.00 

Deadline 49.95 36.00 

Mastertype 39.95 29.00 

Castle Wolfenstein 29.95 21.00 

Supertext II 150.00 108.00 

Softcard Premium System 775.00 600.00 

Wizard and the Princess 32.95 24.00 
Time Zone 



Cranston Manor 
Threshold 
Softporn Adventure 
Crossfire 
Frogger 
Laff Pak 
Ultima II 
Screenwriter II 
Graphics Magician 
Pie Man 
Fastgammon 
Congo 
Goldrush 
Gorgon 
Beer Run 
Snake Byte 



99.95 72.00 

34.95 25.00 

39.95 29.00 

29.95 21.00 

29.95 21.00 

34.95 25.00 

34.95 25.00 

59.95 44.00 

129.95 94.00 

59.95 44.00 

29.95 21.00 

24.95 18.00 

34.95 25.00 

34.95 25.00 

39.95 29.00 

29.95 21.00 

29.95 21.00 



Inlec 32K Board 175.00 

APPLE Compatible Disk Drive $265.00 

VERBATIM/DATALIFE Disks $26.00 



ATARI 



Threshold (d) $39.95 29.00 

Snake Byte (d) 29.95 21.00 

Space Eggs (d) 29.95 21.00 

Bandits (d) 34.95 29.00 

Color Print (d) 39.95 29.00 

Canyon Climber (d) 29.95 21.00 

Shooting Arcade (d) (t) 29.95 21.00 

Pacific Coast Highway (d) (t) 29.95 21.00 

Clowns And Balloons (d) (t) 29.95 21.00 

Wordrace (d) 24.95 18.00 

Andromeda (d) 34.95 25.00 

Deadline (d) 49.95 36.00 

Zork I (d) 39.95 29.00 

Zork II (d) 39.95 29.00 

Alien Swarm (d) 34.95 25.00 

Action Quest (d) (t) 29.95 21.00 

Ghost Encounters (d) (t) 29.95 21.00 

K-Razy Shootout (c) 49.95 36.00 

K-Razy Kritters (c) 49.95 36.00 

Ultima I (d) 39.95 29.00 

Ali Baba and Forty Thieves (d) 32.95 24.00 

Deluxe Invaders (c) 39.95 29.00 

Gorf (c) 49.95 36.00 

Wizard of Wor (c) 49.95 36.00 

Preppie (d) (t) 29.95 21.00 

Tigers in The Snow (d) (t) 39.95 29.00 

Ghostly Manor (d) 24.95 18.00 

Raster Blaster (d) 29.95 21.00 



SPECIAL OFFERS 



T=Cassette 

D=Disk 

C=Cartridge 



A. 

ATARI* 



Rear Guard (d) 


24.95 


18.00 


Rear Guard (t) 


19 95 


15.00 


Caverns of Mars |d) 


39.95 


29.00 


Atari Basic (c) 


59.95 


45.00 


Star Raiders (c) 


44.95 


33.00 


Centipede (c) 


44.95 


33.00 


Pac Man (c) 


44.95 


33.00 


Pilot (c) 


79.95 


60.00 


Temple of Apshai (d) (t) 


39.95 


29.00 


Upper Reaches of Apshai (t) 


19.95 


15.00 


Curse of Ra (d) 


19.95 


15.00 


Midway Campaign (t) 


16.00 


12.00 


Apple Panic (d) 


29.95 


21.00 


Track Attack (d) 


29.95 


21.00 


Choplifter (d) 


34.95 


25.00 


Star Blazer (d) 


31.95 


24.00 


Wizard and the Princess (d) 


32.95 


24.00 


Jawbreaker (d) (t) 


29.95 


21.00 


Crossfire (d) (t) 


29.95 


21.00 


Frogger (d) (t) 


34.95 


25.00 


The Shattered Alliance (d) 


39.95 


29.00 


Battle of Shiloh (d) 


39.95 


29.00 


Submarine Commander (c) 


4995 


39.00 



MANY MORE PROGRAMS AVAILABLE 



TERMS: Send check or money order 
for total purchase price, plus $2.00 
for shipping. Ml residents add 4% 
tax. COD. accepted. 

® MFGS. TRAOEMARK 



VISA AND MASTERCARD ACCEPTED 



STROM « 



P.O.Box 197 
Plymouth. Mi. 48170 
(313) 455-8022 



SYSTEMS INC. 



WRITE OR CALL FOR FREE CATALOG 

PHONE ORDER HOURS 

4 PM - 9 PM MON.-FRI. 

INCLUDE CARD NUMBER 
AND EXPIRATION DATE WITH 

CREDIT CARD ORDERS. 
INCLUDE TYPE OF COMPUTER. 



'i 




Subscribe to 

MICRO... 

Save 20% and 
we'll send you a 
BONUS GIFT 

with your subscription! 

Fill out the attached 
card and mail today! 



CHOOSE FROM: 

• Best of MICRO Vols. 2 and 3 

An $18.00 Value — FREE! 
or 

* MICRO CalC for Apple, Atari, TRS-80, or C64 

A $14.95 Value — FREE! 
or 

* MICRO on the APPLE, Vol. 3 
A $24.95 Value for $12.00 



OFFER EXPIRES 
WON'T BE 




Don't Miss 
These Great MICRO Publications 

A Feast Of Computing Ideas 

Use These Postage-Paid Cards To Order 



(In PA 1-800-662-2444) 
(MasterCard and VISA Accepted) 



AJCftO 




D YES! Enter my subscription to MICRO for just $24.00! 
and with it send me the BONUS GIFT I've checked. 

D Best of MICRO Volumes 2 and 3. An $18.00 Value — FREE! 

D MICRO Calc for □ Apple □ Atari □ TR&80 □ C64 
A $14.95 Value — FREE! 

□ MICRO on the APPLE — Vol. 3 A $24.95 value — Only $12.00 



Please rush my subscription and the BONUS GIFT I've checked to: 



Name . 



Address . 
City 



. State . 



-Zip. 



(Allow 6-8 weeks lor delivery) 



This offer good in USA only 



I'm paying by: 
Total Enclosed:$_ 

Visa/MC » 

Exp. Date: 



□ Check DMO 

□ VISA DMC 



APRIL 15 
REPEATED 



/MCftO's Newest Books 



NEW for VIC-20 Users! 
Mastering Your VIC-20 

With 8 BASIC Projects 

A book that makes learning to program your 
VIC-20 fun! Contains 8 projects and programs. 
Games, utilities — even a VIC-20 version of 
"VisiCalc." All 8 programs on cassette to help you 
learn faster. 
□ Mastering the VIC-20 @ $19.95 



NEW for OSI Users! 
MICRO on the OSI 

Includes Machine-Language enhancements and 
BASIC Aids, hardware modifications for 
enhanced/reversed video, programs for control 
code and upper/lower case entry. A valuable pro- 
gramming tool. 

MICRO on the OSI — Now Only $14.95 



□ 



Please rush the MICRO Books I've checked above to: 
Name 



Address . 
City 



. State . 



-Zip. 



(Allow 6-8 weeks lor delivery) 



MA residents add 5% sales tax. 



I'm paying by: □ Check □ MO 
□ VISA □ MC 

Total Enclosed: $ 

(Add $2,00 s/h per book.) 



Visa/MC tt_ 
Exp. Date:. 



/fMCftO 's Best Sellers 



The Best of MICRO 

Make your computer reference 
library complete by adding the "Best 
of MICRO" to your present book col- 
lection. Each volume full of articles 
and programs pulled from the pages 
of MICRO. Excellent software at a 
very low price! 

□ BOM Volume 2 @ $8.00 

□ BOM Volume 3 @ $10.00 



What's Where 
in the Apple 

Revised new edition with Apple lie 
information added to original 
atlas and gazetter. All Apple users 
will find this book helpful in 
understanding their machine and 
essential for mastering it. 

the Apple 



□ 



What's Where 
@ $19.95 



Best Sellers for 

APPLE Users! 

MICRO on the APPLE 

Programming aids, utilities, 
games, enhancements. Together 
Volumes 1, 2, and 3 contain over 
100 programs on diskette. Fully 
documented and explained. 
D 3-Volume Gift-Boxed @ $59.95 
□ Vol. 2D Vol.3 $24.95 ea. 



Please rush the MICRO Books I've checked above to: 
Name 



Address . 
City 



. State . 



-Zip. 



(Allow 6-8 weeks lor delivery) 



MA residents add 5% sales tax. 



I'm paying by: D Check □ MO 

a visa a mc 

Total Enclosed: $ 

(Add $2.00 s/h per book.) 



Visa/MC#_ 
Exp. Date:. 



I: 
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Listing 1 

0300 

9600 
6S4C 

0300 4C 05 03 
0303 

0305 68 

0306 8D 03 03 
0309 68 

030A flD 04 03 

030D A2 00 

030F 85 00 

03ll 9D 00 96 

0314 E8 

0315 DO F8 
0317 4C 4C 68 

031A 68 

03 IB 68 

031C AD 04 03 

031F 48 

0320 AD 03 03 

0323 48 

0324 A2 00 
0326 BD 00 96 
0329 95 00 
0328 E8 

032C DO F8 

032E 60 

032F 



ENTRY-EXIT ROUTINE 



FREE 
SUBR 

i 

'entry 

SADDR 



SAVE 



EXIT 



RET 



ORG $0300 

EQU $9600 
EQU $684C 

JMP AROUND 

DFS 2 

PLA 

STA SADDR 

PLA 

STA SADDR+1 

LDX **00 

LDA $00, X 

STA FREE,X 

INX 

BNE SAVE 

JMP SUBR 

PLA 

PLA 

LDA SADDR+1 

PHA 

LDA SADDR 

PHA 

LDX #100 

LDA FREE,* 

STA *00,X 

INX 

BNE RET 

RTS 

END 



i FREE PAGE OF MEMORY 

; ADDRESS OF COMPILED SUBR 



I REMOVE ADDRESS FROM STACK 
i SAVE FOR EXIT ROUTINE 



INITIALIZE LOOP COUNTER 
SAVE CONTENTS OF PAGE ZERO 
"FREE" PAGE OF MEMORY 



JUMP TO COMPILED SUBROUTINE 

REMOVE ADDRESS FROM STACK 
THIS ADDRESS IS NOT NEEDED 
RESTORE RETURN ADDRESS 
TO TOP OF STACK 



; INITIALIZE LOOP COUNTER 
; RESTORE PAGE ZERO 



; RETURN TO BASIC INTERPRETER 
JMCftO 




Sure 
ifis insured? 

SAFEWARE SM Insurance provides full 

replacement of hardware, media and 

purchased software after a low $50 deductible. 

As little as $35/yr covers: 

• Fire • Theft • Power Surges 

• Earthquake • Water Damage • Auto Accident 

Select the coverage you want from the table. 

Amount of Insurance Annual Premium 



Up tot 2,000 


$35 


t 2,001-$ 5,000 


t 60 


$ 5,001-$ 8,000 


$ 15 


$ 8,001-$11,000 


$90 


$11,001-$14,000 


$105 



Call for higher coverages. 

Not avail, in AK. DC. HI. KY. I.V VIE. .MS. NV. SC, or W. 

Call for immediate protection. 

1-800-848-3469 

fin Ohio call 1-800-848-2112) 



COLUMBIA NATIONAL GENERAL AGENCY 



— w^lr- —*Microbes»Wtr 



■—V V" 1 — Vl r 



It has coie to our attention that there were a nuiber of errors in the previously published Investor prograi by 
Joseph Kattan. He have traced these probleis to a new transmission systei. Most of the errors are listed below, 
there lay be a few lore but we were able to run the prograi using the listing given (with the corrections). Our 
apologies, the problei Mill be resolved in future listings. 



Line 180 at the Return statement is the 

start of line 1B5. 
Line 256 the line wraps around - 60T0 241 - 

then line 260 begins. 
Line 320 should be - 60T0 315, not 15. 
Line 345, second line, line 345 begins. 
Line 347, second line, line 350 begins. 
Line 425 the '*' is lissing - (LENIN*) +1). 
Line 450 the = sign is lissing froi L=l-1. 
Line 1000 the E is lissing froi REM. 
Line 1020 the I is lissing froi IF. 
Line 1110, second line, line 1120 begins. 
Line 1210 the 6 is lissing froi the 60T0. 



Line 1230 the word 'their' should be 'other'. 
Line 2500 the lissing nuiber should read 

MI»F11). 
Line 2520 the lissing nuiber should read HX»3. 
Line 3010 the E is lissing froi DATE! at the 

end of the line. 
Line 3340 the = is lissing froi THEN N2-N1. 
Line 4010, second line, line 4015 begins, 

the 60T0 before references line 2000. 
Line 5005 the '(' is lissing froi S(8) at 

the end of the line. 
Line 5100 the '(' is lissing froi (3) 
RATE OF RETURN. 
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Figure 1 



Plotting Fractals 

On Your 

Computer 



by Simon Wardrop 



Plotting fractals (irregular shapes) can often produce 
beautiful, even spectacular results, but they call into 
question our common definition of length. 
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What is a Fractal? 

Briefly speaking, a fractal is a plane 
shape in which the usual notions of 
length and area cease to be useful. The 
term was first coined by a French 
mathematician, by the name of Bernoit 
Mendelbrot, in his book, "Fractals: 
Form Chance and Dimension" (W.H. 
Freeman, San Francisco, 1977); it is 
derived from the Latin word for 
"irregular" or "fragmented", which 
aptly describes their typical appearance 
(see Figure 1 for example], A really 
rigorous definition of a fractal would 
require a long digression into a lot of 
avoidable mathematics. However, it is 
not difficult to write a program, for a 
computer equipped with reasonably 



high resolution graphics, to create 
them. Apart from being an interesting 
exercise in recursive programming 
|that is, programming in which 
"Stakko" or "LIFO data structures" 
are employed], doing this is worth the 
effort, as the results are often beautiful 
and spectacular. 



The "Snowflake Curve" 

One of the simplest fractals is the so- 
called "snowflake curve" or more 
technically, "the triadic Koch island" 
which was discovered early this 
century by H. von Koch. This shape is 
produced in the following way: begin 
with an equilateral triangle, divide 



Figure 4 

When the point (XL, YL) is actually rightmost on the screen, we still want 
the triangle sticking out, so: 


•<x*W - 




(x '$z—-y 


x = XL + C/2 - Lsin(grad) 
y = YL + D/2 + Lcas(grad) 


/ 


D 


1 I 




C 




The code that produces the new triangle, on the line segment, (lines 
540-580) assumes that the coordinates on the top of the stack, are not 
only leftmost along the curve, but leftmost on the screen. Thus a typical 
situation is: 


JW*) 


1 \. x = XL + C/2 + Lsin(grad) 
1 /^v y = YL + D/2 - Lcas(grad) 


(x,u) ^v 


Thus, when XL is bigger than XR, we must replace L by -L. Consequently 
we have line 540 of the program. 
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each side into three, then replace each 
middle segment by a smaller 
equilateral triangle. Then repeat the 
process on each new segment so 
produced. The first few stages of this 
construction are shown in Figure 2. 
Actually, the program described in this 
article draws only one third of the 
snowflake curve. This decision was 
made because of the limited resolution 
available on computers. In order to 
draw the entire snowflake a reduction 
in size would have been necessary, and 
so fewer "generations" could have 
been produced; I opted for a closer look 
at just one side. 

The Program 

The complete program is shown in 
Listing 1. I do not think that the 
program is easy to follow, and neither 
could I make it so. The process of 
building the snowflake is 
fundamentally recursive and BASIC 
does not handle such processes well. I 
had no choice in the language used, and 
BASIC is still the most commonly 
available language. 

What the program does is this. 
Firstly (line 40) the width and height of 
the screen (SW,SH) are specified, and 
then the minimum length (ML) of a 
line segment in the final curve is given. 
(This latter specification is necessary to 
prevent the process from going on 
forever). Then the starting and ending 
points of the baseline are pushed onto 
the stacks x(p), y(pj which operate in 
"parallel." A subroutine is then called 
which splits the line specified by the 
topmost, and second topmost, entries 
of the stacks into three, and then builds 
a triangle. The resultant four line 
segments then have their endpoints 
pushed onto the stack, according to the 
scheme shown in Figure 3. (Notice 
that, at any stage, the endpoint which 
is closest along the curve from the left 
is at the top of the stack, while the next 
closest is next on the stack.) We then 
return to the main loop where the 
length of the new segments (a,b,c,d) are 
compared with the prescribed 
minimum: if they are smaller, they are 
popped from the stack and drawn (line 
100), otherwise the subroutine is called 
again. 

The most obscure point of the 
subroutine is line 540. The purpose of 
this line of code is to ensure that, at 
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Figure 3 

,»6«p-0,;f(j>-')) 


C<(f-o,^(p-i>) 


/ 


Cx(p-).^) yS 


/ 


C^fi.'fi)) 


/ 


S[t(f*2\$+v) 


*4«.?),$>) 


(xi^.^T) 


Before Subroutine 


After Subroutine 



Figure 5 






























1 1 
























forever 




















1 1 
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Listing 1 



9 

10 

11 

20 

30 

40 

50 

60 

70 

80 

90 

99 

100 

101 

110 

120 

130 

140 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 



REM 
CLS 
REM 
DIM 
REM 
ML = 



** 

■ 

## 
X( 
** 
101 
X(l)=6 
X(2> = 
F = 2 

REM «« 
L=SQR( 
REM ** 
IF KM 
REM ** 
IF DM 
IF P>1 
STOP 
REM «# 
REM *« 
XL=X(P 
C=XR-X 
GD'ATN 
IF XR< 
X(P+3) 
X (P+2) 
X(P+1) 
X(P+0) 
X(P-l) 
P=P + 3 
RETURN 
REM «* 



***» CLEAR SCREEN 
REM CLEAR SCREEN 
#**# PROVIDE THE 
1000) ,Y(1000) 

S=.5:P=3.1416iSW= 
39: Y ( 1 ) = 10 

0:Y(2)=10 



COMMAND IS MACHINE SPECIFIC *#*********#*# 

APPROPRIATE CODE FOR YOUR COMPUTER #**##**# 

INITIALIZE VARIABLES #»*««««««#*««###«#*#«« 
639«SH»199:CZ»C0S(PI/6)/3 



BEGIN MAIN LOOP #««#«*«#«##«####«#«###«#### 
Y(P)-Y(P-1)) A 2) 

NE IS MACHINE SPECIFIC FOR PLOTTING #***** 
,SH-S*Y(P))-(X(P-1) ,SH-S*Y(P-1M ,PSET:P=P-1 
APPROPRIATE CODE FOR YOUR COMPUTER ******* 



(X(P)-X(P-l)) A 2+( 
***** THE NEXT LI 
L THEN LINE (X (PI 
***** PROVIDE THE 
L THEN GOSUB 500 
THEN GOTO 90: REM WHILE STACK NOT EMPTY, REPEAT PROCEDURE 



«*###*######### E 
**HMftt**t*ttt S 

) 

L 

(D/C) 

XL THE L— L 

= XL 

=C/3+XL 

=C/2-L*SIN(GD)+XL 

=2*C/3+XL 

= XR 



ND MAIN LOOP *«######*####«##*##«**######*# 
PLIT THE INTERVAL ItftMtfttHIMHMftHMHI 

sYL=Y(P) tXR-X(P-l) I YR-Y (P-l> 

:D=YR-YL : L=SQR <C*C+D*D> *CZ 



:Y(P+3)=YL 

:Y(P+2)»D/3+YL 

:Y(P+l)=D/2+L*C0S(GD)+YL 

:Y(P+0)=2*D/3+YL 

i Y(P-1>»VR 



####«#########« END OF SUBROUTINE «#«*##############«#«#«### 



each splitting, the new triangles 
actually do stick "outwards." The 
logic behind this is shown in Figure 4. 

The program was written for an 
Hitachi Peach; however, it should run 
on most machines with good graphics. 
The only non-standard BASIC used are 
the statements LINE (X1,Y1)-(X2,Y2), 
PSET which draws a line from (XI, Yl) 
to (X2,Y2) and CLS which clears the 
screen. 

There are several extensions to the 
program that could be made. One could 
draw all three sides of the curve, and, of 
course, Peach and Color Computer 
owners can PAINT under the curve. To 
improve the speed, one might remove 
line 590 and the " + 0" in line 580; they 
were included for clarity 

There are many other related 
"recursively defined" curves that can 
be produced by the same algorithm as 
that used in the program. Some 
examples are shown in Figure 5. For 
many other interesting Fractals, use 
Bernoit Mandelbrot's book; the first 
half of it is fairly easy reading, and 
there are hundreds of good, computer 
drawn, plates. 
No. 70- March 1984 



Some Properties of Fractals 



There are several interesting features of 
the snowflake curve that are worth 
mentioning. Firstly, it has an infinite 
circumference, but a finite area (a finite 
area because you can enclose it in a 
finite square, and an infinite length 
because, at each stage, you replace the 
three intervals by four of the same 
length, and so increase the 
circumference by a factor of 4/3; so 
after infinitely many generations the 
"coastline" of the 'island' is infinitely 
long). 

This is not such an esoteric 
property. It has been argued that actual 
coastlines behave similarly. If you 
measure the length of Australia's 
coastline with a 1 km "yardstick", you 
will get a one figure, while if you 
measure it with a 1 metre "yardstick" 
you will get another result which is 
probably bigger than the first. Thus, as 
you use smaller and smaller yardsticks 
(and supposedly get increasingly more 
accurate results), you get bigger and 
bigger results. What then is the length? 
MICRO 



It would seem to be infinite. This is the 
crux of Mandelbrot's book. He argued 
for a new definition of length that 
would, hopefully, be more useful for 
the comparison of "lengths" and 
"sizes" than the current scheme in 
which every coastline has the same 
length: infinity! 

Conclusion 

I hope that this article has sparked 
some interest in the fascinating curves 
called "fractals", and demonstrated a 
use for stacks other than sorting! There 
are many possibilities for 
experimentation. Mathematically the 
field is far from dead; fractals are being 
applied to things as commonplace as 
soap bubbles, and as esoteric as the 
"strange attractors" of differential 
equations. 

Simon Wardrop may be reached at 3 
Gwenda Avenue, Blackburn, 3130, 
Australia. 
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From Here to Atari 



by Paul S. Swanson 



I have been testing my ATR8000 (a 
peripheral discussed previously in 
Micro No. 68) in different modes this 
month and am impressed by its 
versatility. I recently acquired the 
latest release of MYDOS which greatly 
expands the capacity of the ATR8000 
when used as an Atari peripheral. 
MYDOS replaces the functions of Atari 
DOS and adds others required to 
support more features of the ATR8000. 

MYDOS will act as a direct 
replacement for Atari DOS when used 
with most programs. The only 
exception I found is the result of a bug 
in MYDOS not allowing random access 
updating in files, but have received 
word that the problem is being 
addressed by the author of MYDOS, 
Charles W. Marslett. MYDOS is 
distributed by SWP Microcomputer 
Products, Inc., in Arlington, Texas 
76011, which is the company 
producing the ATR8000. 

Most of the additional features of 
MYDOS concern the different 
configurations of disk drives available 
through the ATR8000. Supported in the 
5-1/4 line are single sided single 
density 40 track disks, like the 810 
drives use, giving about 90K of storage, 
to double sided double density 80 track 
drives which store over 700K. With a 
$19.95 adapter for each, the ATR8000 
will also support 8 drives. Single sided 
8 drives will hold almost 500K and 
double sided 8 drives will hold 990K. 
The net result of this is a lot more 
storage capacity for the Atari computer. 
For example, using four 5-1/4 double 
sided double density 80 track drives 
yields about 2.8 megabytes of on-line 
storage. Four double sided 8 drives 
would hold almost 4 megabytes. To 
transfer back and forth from the single 
sided single density Atari-compatible 
disk formats there must be one such 
disk on line, but for maximum storage 
that drive can first be used to make the 
transfers, then removed and replaced 
with a larger capacity drive for actual 
operation. 



On my system (until I go get a 
double sided 80 track 5-1/4 drive, 
anyway) I have two TRS-80 drives 
connected by a Radio Shack drive cable. 
Used in double density mode this gives 
me the equivalent of four Atari disk 
drives, or about 360K. MYDOS will 
allow me to define these disks as either 
single or double density and will 
automatically redefine them if, for 
example, I put a single density disk in a 
double density configured drive, or vice 
versa. This automatic redefinition will 
work in DOS mode, but is not 
automatic once a program is running, 
so before executing a program it is 
important to verify that the disks are 
configured the way you want to use 
them. 

Other interesting features in 
MYDOS includes modification to the 
DOS C |copy file), I (initialize) and J 
(duplicate) commands. Copy may be 
done from any filespec to any filespec, 
and with the RS232 version of 
MYDOS, version 3.16, a file may even 
be copied from disk to the RS232 port, 
which is not possible under Atari DOS 
or without the ATR8000 RS232 port. 
Initialized, used in Atari DOS as a 
format command, can be specified to 
format or just erase the diskette. The 
duplicate command has two options. 
First, only a certain range of sectors 
may be specified. Second, the 
destination drive may be either 
formatted or erased before the 
duplication is done. 

Another interesting feature of 
MYDOS is the ability to create 
multiple directories on one disk. This 
eliminates the 64-file limit imposed 
under Atari DOS. Each additional 
directory is installed as the equivalent 
of one file name in the main directory 
and may also contain up to 64 file 
names. Since the ATR8000 supports so 
many different drive configurations, 
some further control is also supported. 
For example, different disk drives will 
respond at different speeds. One of the 
additional controls sets the amount of 



time required to move the disk 
read /write head from one track to the 
next to accommodate slower drives. 
This can be set differently for each 
drive on the system. The default for 
5-1/4 disks is 6ms per track, but that 
may be redefined to as slow as 30 ms 
per track. Basically, if you are having 
problems reading disks on a particular 
drive, you can try slowing it down on 
the assumption that you are not giving 
the disk sufficient time to position the 
head before a read or write operation. 

There are also several other double 
density disks compatible with the Atari 
computers. MYDOS will support these 
drives also. Some of these third party 
disk drives, like the Trak drive 
produced by Trak Microcomputer 
Corporation at 1511 Ogden Ave., 
Downers Grove, 111. 60515, retailing at 
$499.00, also has a printer port with a 
small built-in printer buffer (4K). 

MYDOS also has added file 
manager routines, accessible in BASIC 
using the XIO command, to support 
these new functions. On some, the 
same XIO commands are available as in 
Atari DOS, but the AUX1 and AUX2 
bytes, normally zero for Atari DOS, 
have some other information in them. 
These control the type of formatting to 
be done, the number of sectors on the 
drive and so forth. XIO commands 
added include things like creation of 
new directories and setting the default 
directory. 

In addition, MYDOS 1.16 supports 
the ATR8000 RS232 port. The basic 
difference between this RS232 handler 
and the one used with the 850 interface 
is that MYDOS contains the handler as 
an integral part of DOS. This means 
that, if you are using DUP.SYS (DOS 
command from BASIC) you don't lose 
the RS232 handler. It is simply always 
there. This drawback to the 850 
handler is particularly annoying when 
working in machine language because 
it is always required to append the 
object file to the AUTORUN.SYS file 
used to load the handler. In MYDOS, 
the machine language routine that 
accesses the RS232 port can be run 
directly without worrying about 
loading any handler. 

You may contact Paul Swanson at 97 
Jackson St., Cambridge, MA 02140. 

tMCRO 
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MICRO Program Listing Conventions 



Commodore 

LISTING 

Commands 

(CLEAR) 

(HOME! 

(INSERT} 

(DOWN) 

(UPJ 

(RIGHT) 

(LEFT) 

Col ors 

(BLACK) 

(WHITE) 

(RED) 

(CYN) 

(PURPLE) 

(GREEN) 

(BLUE) 

(YELLOW) 

(RVS) 

(RVSOFF) 

(ORANGE) 
(BROWN) 
(GREY 1) 
(GREY 1) 
(GREY 2) 
(LT GREEN) 
(LT BLUE) 
(GREY 3) 

Functions 

(Fll 
(F2) 
(F3) 
(F4) 
(F5) 
(F6) 
(F7) 
(F8) 



C64 KEYBOARD 



L'3 

ii 
n 

in 



i 

K 
1 

it 



'A 

m 

s 

11 
3 



" CLR 
HOME 
•■ INST 
CRSR DOWN 
" CRSR UP 
CRSR RIGHT 
A CRSR LEFT 



CTRL 1 



CTRL 
CTRL 
CTRL 
CTRL 
CTRL 
CTRL 



3 CTRL 
■ CTRL 



i 



■ H 

a f3 

K " f4 
II +5 
M " fi 
II *? 

■ "' f8 



BLK 
WHT 
RED 
CYN 
PUR 
GRN 
BLU 



fil CTRL 8 YEL 



RVS ON 
RVS OFF 



Special Characters 

(PI) it ' Pi Char 
(POUND) £ Pound Sign 
(UP ARROW) t Up Arrow 
(BACK ARROW)*- Back Arrow 



Atari 






Conventions used in ATARI List 


ings. 


Noraal Alpnanuaeric appear as 


UPPER CASE: 


SAMPLE 






Reversed Alpnanuaeric appear as lower case: 


yES iy is 


reversed) 




Special Control 


Characters in 


quotes appear as: 


(coaaand} 


as follows: 




Listing 


Cotsand 


ATARI Keys 


(UP! 


Cursor Up 


* ESC/CTRL - 


(DOWN) 


Cursor Down 


♦ ESC/CTRL = 


(LEFT) 


Cursor Left 


*■ ESC/CTRL + 


{RIGHT} 


Cursor Right 


* ESC/ CTRL * 


(CLEAR) 


Clear Screen 


•* ESC/CLEAR 


(BACK) 


Back Space 


4 ESC/BACK 3 


(TAB) 


Cursor to Tab 


► ESC/TAB 


(DELETE LINE) 


Delete Line 


D ESC/SHIFT DELETE 


(INSERT LINE) 


Insert Line 


□ ESC/SHIFT INSERT 


(CLEAR TAB} 


Clear Tab Stop 


B ESC/CTRL TAB 


(SET TAB} 


Set Tab Stop 


□ ESC/SHIFT TAB 


(BEEP) 


Beep Speaker 


□ ESC/CTRL 2 


(DELETE) 


Delete Char, 


U ESC/CTRL BACK S 


(INSERT) 


Insert Char. 


U ESC/CTRL INSERT 


(CTRL A) 


Graphic Char. 


1- CTRL A 




where A is any 


Graphic Letter Key 



Non-Keyboard Commands 



(DIS-> 

<ENB«} 

(LOWER 

(UPPER 

("RETURN) 

(DEL) 

(SPACE) 



CASE} 
CASE) 



CHR*(8» 
CHR* '.9> 
CHR* t 14 j 
CHR* ( 142) 
CHR* < 142 I 
CHR* (20) 
CHRt(liO) 



Notes; 



1. 

2. 

3. 
4. 



" represents SHIFT KEY 

■ represents Commodore Key in 

lower left corner of keyboard 

CTRL represents C1RL Key 

Graphics characters represented 

in Listing by keystrokes required 

to generate the character 

A number directly after a (SrMBOLJ 

indicates multiples of the SYMBOL: 

(D0WN6) would mean DOWN 6 times 
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Ifbk fUtmtttfaitt 

A fun and exciting Bible educational game! 



Our No. 1 seller is now better than ever! 
VERSION 3.0 now supports multiple choice 
questions, has improved Hi-Res graphics and 
sound, and more! 

• For 2 to 20 players 

• 60 question/ answer set included 

• gives correct answers and scriptural reference 
when a question is missed 

• easily create, add, and edit your own 
question/ answer sets 

For Apple*IK lie 
48k WITH DISK DRIVE 



li 



Accepted 



25,' 



00 



Add $1.50 Shipping Plus Handling 
Order now and get the tree game 

"BIBLETRATION!" 
DEALER INQUIRIES INVITED 




J & M SOFTWARE 



P.O. Box 2132 
Athens, Texas 75751 
(214] 675-8479 



Disks are not locked 

'.APPLE is a registered trademark 
ot Apple Computer, Inc. 



For affordable business 
software, put MicroSpec in 



iMEMORYl 

LJ LJ l_l I ■ 1 I I I 



MicroSpec is serious about offering sophisticated busi- 
ness programs at an affordable price. And there's no 
skimping on the quality or capabilities of the programs. 
Whether you're using DBM, INV, G/L, PAY, A/R. A/P, Fixed 
Asset, Rental Property Management, Mail List, or 
Checkbook Manager you'll find MicroSpec programs 
offer the greatest flexibility and optimum performance 
for your specific needs. And you'll like the price! 
Proven MicroSpec business programs are available NOW 
for the Commodore 64 and VIC 20 (trademarks of Com- 
modore). Applications for other popular micros will be 
coming soon. 

A leader in the design of affordable business systems - 
MicroSpec. Put it in your memory. 

For more information, contact your local dealer. 

MicroSpec, Inc. 

P.O. Box 863085 • Piano, TX 75086 
(214)867-1333 

(Dealer inquiries welcome) 



.nSSPie 



Advertiser's Index 



A B Computers 25 

Amdek Inside Back Cvr 

Amplify 48 

Artemis Systems 7 

Computer Mail Order 12, 13 

Dennison Computer Supplies Back Cvr 

Eastern House Software 33 

J & M Software 80 

Kiwi Software 55 

Lazerware 14 

MICRO Magazine 5,61,72 

Micro Spec 80 

Micro Ware 58 

Midwest Micro 9 

Nibble 43 

Percom Inside Front Cvr 

Performance Micro Products 55 

Perry Peripherals 34 

Protecto 21,22,23 

Safeware 73 

Skyles Electric Works 3 

Specialty Electronics 7 

Strom Systems 71 

Titan Technology 67 

Totl Software 31 

Winders & Geist 49 

Zanim Systems 1 



National Advertising 
Representatives 



East Coast: 
John Gancarz 

P.O. Box 6502 
Chelmsford, MA 01824 



(617) 256-3649 



Mid-West: 

Thomas Knorr & Associates 
Thomas H. Knorr, Jr. 

333 N. Michigan Avenue, Suite 401 
Chicago, Illinois 60601 (312) 726-2633 

serving: Ohio, Oklahoma, Arkansas, Texas, North Dakota, South 
Dakota, Nebraska, Kansas, Missouri, Indiana, Illinois, Iowa, 
Michigan, Wisconsin, and Minnesota. 



West Coast: 

The R.W. Walker Co., Inc. 
Gordon Carnie 

2716 Ocean Park Boulevard, Suite 1010, 
Santa Monica, California 90405 (213) 450-9001 

serving: Washington, Oregon, Idaho, Montana, Wyoming, Colorado, 
New Mexico, Arizona, Utah, Nevada, California, Alaska, and Hawaii 
(also British Columbia and Alberta, Canada) 
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Computer's 
Choice. 




Primage I 

The revolutionary office duty, letter quality 
daisy printer system from Primages. 



In word processing and data 
communications applications, 
where high quality printing at high 
speed means higher computer 
productivity— The Primage I daisy 
printer by Primages is the 
computer's first choice. 

That's because Primage I, with 
its PAGEMATE I* sheet feeder, 
costs much less than any other 
office-quality, high-speed daisy 
printer. And because it's easy 
to interface with any micro- 
computer system. 



Primage I features: 

■ 45 cps speed in heavy 
duty applications 

■ Word processing 
features 

■ Consistent letter 
quality production 

■ Wide choice of fonts 

■ Easy connection to 
your computer 



Easy to install sheet 
feeder that handles 
up to 11" x 14" sheets, 
either landscape or 
portrait 

Full 13W' writing line 

Switch selectable 
multiple languages 

Patented technology 
for greater reliability 



•PAGEMATE is a trademark 
of Primages, Inc. 



Main Office: 163 Reservoir Street, Needham, MA 02194, (617) 449-5600 

Branch Offices: P.O. Box 214, Rock Hill, CT 06067, (203) 529-9123 
70 Oriole Drive, Bedford, NH 03102, (603) 472-2123 




ELEPHANT NEVER FORGETS. 



A full line of top-quality floppies, in virtually every 5 *A* and 8" model, for compatibility with virtually every computer on the market. 
Guaranteed to meet or exceed every industry standard, certified 100% error- free and problem-free, and to maintain its quality for at least 12 million passes 

(or over a lifetime of heavy-duty use). 

Contact Dettnison Computer Supplies, inc., 55 Providence Highway, Norwood, MA 02062 or call toll-free 1-SOO-34i-S4i5- E4iilM 
In Massachusetts, call collect (617) 769-S150, Telex 951-624. 




